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1.0 INTRODUCTION 
1.1 ABSTRACT 

THE RMO3 DISKLESS DIAGNOSTIC IS A STAND ALONE PROGRAM WHICH USES 
FUNCTIONAL AND DIAGNOSTIC MEANS TO VERIFY THE OPERABILITY OF THE RMO3 
DISK SUBSYSTEM EXCLUDING AND INDEPENDENTLY OF THE STORAGE MODULE 
DRIVE. IN PARTICULAR, THE PROGRAM SERVES THE FOLLOWING PURPOSES: 

TO DETECT ERRORS AND FAULTS IN THE RH70 MASSBUS CONTROLLER; 

TO DETECT ERRORS AND FAULTS IN THE RMO3 MASSBUS ADAPTER; 


TO RESOLVE HARDWARE FAILURES IN THE RH70 AND RMO3S TO A FIELD 
REPLACEABLE MODULE OR MODULES. 


at oe at a et 
BYRARAOYISBVS 


1.2 UNIT UNDER TEST 


THE UNIT UNDER TEST (UUT) IS THE RMO3 DISK SUBSYSTEM, EXCLUDING 
THE STORAGE MODULE DISK DRIVE AND THE RH70 MASSBUS CONTROLLER. 


2.0 OPERATING REQUIREMENTS 
2.1 HARDWARE REQUIREMENTS 

THE FOLLOWING MINIMUM HARDWARE CONFIGURATION, ASSUMED TO BE 
OPERATIONAL, IS REQUIRED TO LOAD AND EXECUTE THE RMO3S DISKLESS 
DIAGNOSTIC: 

PDP-11 PROCESSOR 

24K MEMOk ¥ 


KW11=L OR kw11=P CLOCK 
PROGRAM LOAD'NG DEVICE 


TERMINAL 
RH CONTROLLER 


UNIT UNDER TEST 
WHERE THE UNIT UNDER TEST CONSISTS OF ONE TO EIGHT RMO3 ADAPTERS. 
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2.2 MEDIA REQUIREMENTS 
NONE 


2.3 PREREQUISITE DIAGNOSTIC PROGRAMS 


NONE 


3.0 OPERATING PROCEDURE 
3.1 LOADING 
THE PROGRAM MAY BE LOADED BY EITHER PAPER TAPE, USING THE 


STANDARD PAPER TAPE LOADING PROCEDURE, OR XXDP MEDIA, USING THE 
APPROPRIATE LOADING DEVICE. 


3.2 SWITCH OPTIONS 
THE FOLLOWING SWITCH OPTIONS ARE INVOKED WHEN THE APPROPRIATE 
SWITCH IS ON. 
ERROR 
TEST (CURRENTLY BEING EXECUTED) 
ERROR TYPEOUTS 


TEST ITERATIONS 
ERROR 


ERROR 
TEST IN SWO7-00 


THE LOW ORDER 8 SWITCHES ARE USED IN CONJUNCTION WITH SWO8 TO SPECIFY 
A PARTICULAR TEST WHICH THE PROGRAM WILL LOOP ON. 
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3.3 STARTING 
PROGRAM STARTS AT LOCATION 200 WHICH USES DEFAULT VALUES OF 


THE 
net Fg AND PROVIDES MAXIMUM TESTING WITH THE SWITCH REGISTER EQUAL 


4.9 OPERATOR INTERFACE 
4.1 PROGRAM ID 


THE PROGRAM TYPES ITS NAME AND MAINDEC NUMBER THE FIRST TIME IT 
IS STARTED AFTER BEING LOADED. 


4.2 PROGRESS REPORTS 


AN END OF PASS REPORT OCCURRS EACH TIME THE PROGRAM IS_ EXECUTED 
FOR ALL ADAPTERS IN THE TEST QUE. THE END OF PASS REPORT INCLUDES A 
MESSAGE AND AN ERROR SUMMARY. 


4.3 PERFORMANCE REPORT 
NO PERFORMANCE REPORTS ARE GIVEN DURING THE EXECUTION OF THE 


4.4 PROGRAM HALTS 


THERE ARE NO SCHEDULED HALTS DURING THE EXECUTION OF THE PROGRAM. 
PROCESSOR HALTS ARE DUE TO THE TRAP CATCHER. 


4.5 ERROR REPORTS 


THE RMO3 DISKLESS DIAGNOSTIC PROVIDES COMPREHENSIVE ERROR REPORTS 
INTENDED TO (1) AID IN FAULT RESOLUTION AND (2) MINIMIZE REFERENCES TO 
PROGRAM LISTINGS. 


THE FIRST LINE OF THE ERROR REPORT CONTAINS THE NUMBER OF THE 
UNIT BEING TESTED, THE TEST NUMBER, THE ERROR NUMBER AND THE VALUE OF 
THE PROGRAM COUNTER WHERE THE ERROR WAS CALLED. THIS LINE IS FOLLOWED 
BY THE ERROR MESSAGE: SEVERAL LINES OF TEXT WHICH GIVE A 
COMPREHENSIVE DESCRIPTION OF THE ERROR, AND A LIST OF FAILING MODULES 
IN ORDER OF DECREASING PROBABILITY. THE ERROR MESSAGE IS NORMALLY 
FOLLOWED BY ONE OR MORE PAIRS OF LINES CONTAINING DATA HEADERS AND 
DATA PERTININENT TO THE FRROR, INCLUDING EXPECTED AND ACTUAL TEST 


fn On On On on On fn fn On On On on 0 On on on on on on 1 I SS SSNS SNS NSS SS SNS SNS NSN NS 
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5.0 ENVIRONMENTAL SUPPORT 
5.1 PROCESSOR COMPATIBILITY 


THE RMO3 DISKLESS DIAGNOSTIC IS _ EXECUTABLE ON ANY _ PDP-11 
PROCESSOR, PROVIDING PREVIOUSLY MENTIONED HARDWARE REQUIREMENTS ARE 


5.2 DUAL PORT CONF IGURATIONS 
THE RMO3 DISKLESS DIAGNOSTIC IS NOT EXECUTABLE ON RMO3 SUBSYSTEMS 


HAVING THE DUAL PORT OPTION UNLESS THE DUAL PORT SWITCH IS SET TO THE 
APPROPRIATE PORT (A OR B) AND NOT TO THE PROGRAMMABLE POSITION (A/B). 


5.3 MEMORY PARITY HARDWARE 


MEMORY PARITY HARDWARE WILL NOT BE USED DURING THE EXECUTION OF 
THE RMO3 DISKLESS DIAGNGOSTIC. 


5.4 MEMORY MANAGEMENT HARDWARE 


MEMORY MANAGEMENT HARDWARE WILL NOT BE USED DURING THE RMO3 
DISKLESS DIAGNOSTIC. 


5.5 ACT11, APT11 COMPATIBILITY 


THE RMO3 men ty DIAGNOSTIC PROGRAM IS COMPATIBLE WITH ACT11 AND 
APT11 IN BOTH DUMP AND AUTOMATIC MODES. FURTHER, THE PROGRAM Sth 


—- A QUICK PASS DURING THE FIRST PASS IN SUPPORT OF QUICK VERI 


5.6 XXDP COMPATIBILITY 


THE RMO3 DISKLESS DIAGNOSTIC PROGRAM IS COMPATIBLE WITH XXDP_ IN 
DUMP AND CHAIN MODES. 


5.7 OPERATING SYSTEM COMPATIBILITY 


ween” PROGRAM IS NOT REQUIRED TO BE COMPATIBLE WITH ANY OPERATING 





J 1 
CZRMJCO RMO3/2 DSKLS PRT 1 MACY11 30A(1052) 21-AUG-78 09:22 PAGE 9 
CZRMJC.P11 21-AUG-78 09:19 


6.0 TEST DESCRIPTION 


THE PROGRAM IS DESIGNED IN A BOTTOM UP MANNER SUCH THAT EACH TEST 
— USES A MORE COMPLEX SUBSET OF HARDWARE THAN THE PREVIOUS 


MODULE CALLOUT IS PREDICATED ON THE ASSUMPTION THAT EARLIER TESTS 
HAVE BEEN COMPLETED WITHOUT ERROR AND THAT ERRORS ARE DUE TO SINGLE, 
NONTRANSIENT HARDWARE FAILURES. 


THE ‘RMO3 DISKLES DIAGNOSTIC’’ CAN BE EXECUTED USING AN RH70 OR AN 
RH11 MASSBUS CONTROLLER. 


UNLESS SPECIFIED BY THE OPERATOR OR BY THE ENVIRONMENT TABLE THE 
TEST IS REPEATED FOR EACH POSSIBLE DEVICE STARTING WITH DEVICE 0. 


THE MODULES WHICH MAY BE CALLED OUT DURING THE EXECUTION OF THE 
TEST ARE AS FOLLOWS: 


IF 
CS 


DS 
MASSBUS MODULE 
THE RADIAL MODULE (RD) IS NOT TESTED BY THIS PROGRAM. 


TRANSFER TEST 
PURPOSE : 


TO VERIFY THAT THE RMO3 CAN COMPLETE A REGISTER TRANSFER ON 
THE MASSBUS, AND, IN PARTICULAR, TO VERIFY THAT ‘‘TRANSFER'' IS NOT 
STUCK IN AN INACTIVE STATE. 


PROCEDURE : 1 


THE PROGRAM WRITES AND READS REMOTE ao yf FOR THE 
SELECTED REGISTER get AND PARITY ERRORS ARE 
IGNORED, TEST FAILS IF A ‘NONEXISTENT POEVICE ERROR’ OR 
BUS TIMEOUT OCCURS FOR EVERY REGISTER ACCESS. IF THE TEST FAILS 
THE PROGRAM JUMPS TO THE END OF PASS HANDLER WHICH SELECTS THE 
NEXT DEVICE TO BE TESTED. 


PROBABLE FAULT: 


THE TEST wate IF THE SELECTED DEVICE IS NONEXISTENT OR IS 
SWITCHED TO THE PROGRAMMABLE POSITION OR TO THE ALTERNATE PORT. 
THE FOLLOWING FAULTS ARE APPLICABLE ONLY WHEN THE DEVICE IS 
PRESENT AND IS SWITCHED TO THE APPROPRIATE PORT. 
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IF MODULE 
ASYNCHRONOUS MASSBUS MODULE 
CS MODULE 


TO VERIFY THAT DATA CAN BE TRANSFERRED TO AND FROM THE RMO3 
USING THE CONTROL BUS AND, IN PARTICULAR, TO VERIFY THAT 
“CONTROLLER TO DEVICE’’ HAS NOT FAILED. 

PROCEDURE : 

THE TEST WRITES ONES IN REMOTE REGISTERS THEN READS EACH 
REGISTER WHICH WILL WRITE ZEROS IN THE REGISTER IF ‘‘IF3 CTOD HOLD 
H'' IS STUCK AT ONE. THE TEST THEN READS AS MANY REMOTE REGISTERS 
AS ARE NECESSARY TO OBTAIN ONE OR MORE ONE BITS. 

PROBABLE FAULT: 
1. IF MODULE 


2. ASYNCHRONOUS MASSBUS MODULE 


MASSBUS INITIALIZE TEST 


PURPOSE : 


TO VERIFY THAT THE MASSBUS ADAPTER IS BEING INITIALIZED BY 
THE MASS BUS. 


PROCEDURE : 

USING CONTROLLER CLEAR TO INITIALIZE THE SELECTED UNIT, THIS 
TEST THEN READS MASSBUS ADAPTER REGISTERS TO VERIFY THAT AT LEAST 
ONE BIT IS CLEARED. MASSBUS ADAPTER REGISTERS ARE PRESET TO A 
NON ZERO VALUE PRIOR TO CONTROLLER CLEAR. 


PROBABLE FAULT: 
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ASYNCHRONOUS MASSBUS MODULE 
IF MODULE 
CS MODULE 


CLEAR STUCK ACTIVE TEST 
PURPOSE : 


TO VERIFY THAT 'MBA CiR L'’ ON THE CS MODULE IS NOT STUCK IN 
AN ACTIVE STATE. 


PROCEDURE : 

CONTROLLER CLEAR IS USED TO INITIALIZE THE SELECTED UNIT, 
AFTER WHICH 1°S ARE WRITTEN IN ERROR REGISTERS 1 AND 2 AND 
MAINTENANCE REGISTER 1. IF ANY 1 BITS CAN BE READ BACK THE TEST 
IS OK, ELSE, ‘MBA CLR L** IS PROBABLY STUCK ACTIVE. 

PROBABLE FAULT: 
1. CS MODULE 
2. IF MODULE 


3. ASYNCHRONOUS MASSBUS MODULE 


TRISTATE TRANSFER TEST 
PURPOSE : 


TO VERIFY THAT THE PATH TO AND FROM THE MASSBUS ADAPTER 
TRI-STATE REGISTER BUS IS NOT STUCK AT ONE OR ZERO AND THAT EACH 
BIT POSITION IS INDEPENDENT. 


PROCEDURE : 


THIS TEST PRESETS MASSBUS ADAPTER REGISTERS TO A_ NONZERO 
VALUE, THEN, ASSUMING THE REGISTERS ARE PRESET, IT CLEARS THEM 
USING A MOVE INSTRUCTION. THE TEST THEN READS AS MANY _ REGISTERS 
rest la eee TO OBTAIN ONE OR MORE ZEROS FROM EACH BIT 
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THE TEST CLEARS MASSBUS ADAPTER REGISTERS, THEN, ASSUMING 
THE REGISTERS ARE CLEARED, IT LOADS THEM WITH ONES AND READS AS 
MANY REGISTERS AS IS NECESSARY TO OBTAIN ONE OR MORE ONE BITS IN 
EACH BIT POSITION. 


FINALLY, THE TEST WRITES A SINGLE ONE BIT PATTERN IN BIT O 
OF SELECTED REMOTE REGISTERS AND VERIFIES THAT THE PATTERN CAN BE 
READ BACK. THE ONE BIT IS SHIFTED AND THE TEST REPEATED FOR ALL 
BIT POSITIONS. 
PROBABLE FAULT: 

ASYNCHRONOUS MASSBUS MODULE 

IF MODULE 

CS MODULE 


DS MODULE 


et aad ad asd cd ead 
CONAUSW 


5 
5 
5 
5 
5 
5 


REGISTER SELECT TEST 
PURPOSE : 


TO VERIFY THAT THE REGISTER SELECT LINES ARE NOT IN A STUCK 
POSITION. 


PROCEDURE : 
EACH negisren SELECT LINE IS TESTED BY WRITING ZEROS 
REGISTERS CH 


READ BACK AND 
STUCK AT ZERO, THE ZERO ee it CONTAIN ONE THE PROCE 
1S REPEATED TO DETECT A STUCK AT ONE,FAULT, EXCEPT IN THIS CASE, 
THE ONES REGISTER IS WRITTEN FIRST. - 


REGISTER SELECT LINES 1, 2, 4 AND 8 ARE TESTED IN THIS 
MANNER; SELECT LINE 16 IS EXPLICITLY TESTED IN THE "‘ILR TEST'’. 


PROBABLE FAULT: 
1. IF MODULE 
2. ASYNCHRONOUS MASSBUS MODULE 
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DRIVE TYPE TEST 
PURPOSE : 
TO TEST THE ‘DRIVE TYPE'’ REGISTER, RMDT. 
PROCEDURE : 


THE PROGRAM READS RMDT AND VERIFIES. THAT THE RESULT 
CORRESPONDS TO A SINGLE PORT OR DUAL PORT RMO3 DRIVE. 


PROBABLE FAULT: 
1. IF MODULE 


DEVICE AVAILABLE TEST 
PURPOSE : 
TO VERIFY THAT DEVICE AVAILABLE STATUS IS SET. 
PROCEDURE : 
THE PROGRAM TESTS ‘DVA"', BIT 11 OF RMCS1. 
PROBABLE FAULT: 
1. IF MODULE 


HOLDING REGISTER TRANSFER TEST 
PURPOSE : 


TO VERIFY THAT THE HOLDING REGISTER IS NOT STUCK AT ONE, 
STUCK AT ZERO, AND THAT THERE IS NO BIT INTERFERENCE. 


PROCEDURE : 


THE PROGRAM TRANSFERS ONES, THEN ZEROS TO THE HOLDING 
REGISTER AND VERIFIES THAT NONE OF THE BITS ARE STUCK AT ONE. 


THE PROGRAM TRANSFERS ZEROS, THEN ONES TO THE HOLDING 
REGISTER AND VERIFIES THAT NONE OF THE BITS ARE STUCK AT ZERO. 
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PAGE 12 
FINALLY, THE TEST TRANSFERS A SHIFTING ONE BIT PATTERN AND 
VERIFIES THAT EACH BIT IS INDEPENDENT. 
PROBABLE FAULT: 
1. IF MODULE 


CONTROL STATUS #1 TRANSFER TEST 
PURPOSE : 
TO VERIFY THAT BITS 01 THROUGH 05 OF CONTROL STATUS REGISTER 
1 ARE NOT STUCK AT ONE OR ZERO, AND THAT THERE IS NOT BIT 
INTERFERENCE. 
PROCEDURE : 
THIS TEST WRITES ONES IN CONTROL STATUS REGISTER 1, RMCS1, 


THEN WRITES ZEROS AND VERIFIES THAT THE BITS ARE NOT STUCK AT 
ONE. THE GO BIT IS NOT TESTED IN THIS TEST. 


NEXT, THE TEST CLEARS THE CONTROL STATUS REGISTER, RMCS1, 
WRITES ONES IN BITS 01 THROUGH 05 AND VERIFIES THAT THE BITS ARE 
NOT STUCK AT ZERO. THE GO BIT IS NOT TESTED. 


THE TEST TRANSFERS A SHIFTING ONE BIT DATA PATTERN TO AND 
FROM RMCS1 AND CHECKS FOR ADJACENT BIT INTERFERENCE. 


PROBABLE FAULT: 
1. IF MODULE 


ERROR REGISTER #1 TRANSFER TEST 
PURPOSE : 


TO VERIFY THAT ERROR REGISTER 1 IS NOT STUCK AT ONE OR ZERO, 
AND THAT THERE IS NOT BIT INTERFERENCE. 


PROCEDURE : 


THIS TEST WRITES ONES IN ERROR REGISTER 1, RMER1, THEN 
WRITES ZEROS AND VERIFIES THAT THE REGISTER IS NOT STUCK AT ONE. 
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657 UNSAFE’ IS NOT TESTED DURING THIS TEST. IN ORDER TO LIMIT THE 
658 PROBABLE FAULTS 70 ONE OR TWO MODULES, THE TEST IS EXECUTED IN 3 
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PAGE 13 
PARTS WITH EACH PART TESTING THOSE BITS WHOSE PRESET FUNCTIONS 
ARE DERIVED FROM THE SAME MODULE. 


THE TEST WRITES ZEROS IM ERROR REGISTER 1, RMERI, THEN 
WRITES ONES AND VERIFIES THA’ THE REGISTER IS NOT STUCK AT ZERO. 


FINALLY, THE TEST WRITES A SHIFTING ONE BIT PATTERN IN RMER1 
AND CHECKS FOR ADJACENT BIT INTERFERENCE. 


PROBABLE FAULT: 
1. IF MODULE 
2. CS MODULE 
3. DS MODULE 


ERROR REGISTER #2 TRANSFER TEST 


PURPOSE : 


TO VERIFY THAT ERROR REGISTER 2, RMER2, IS NOT STUCK AT 
ONE, STUCK AT ZERO, AND THAT THERE IS NOT BIT INTERFERENCE. 


PROCEDURE : 
THE TEST WRITES ONES THEN gly ZEROS _ IN. ny! AND VERIFIES 
CK AT ONE. ‘'‘SKI*’ "DVC’’ ARE aa 
THE TEST IS EXECUTED IN 3 PARTS WITH EACH PART 
TESTING THOSE BITS WHOSE PRESET FUNCTIONS ARE DERIVED FROM THE 
SAME MODULE. 


THEN THE TEST WRITES ZEROS IN ERROR REGISTER 2, AND WRITES 
ONES VERIFYING THAT THE REGISTER IS NOT STUCK AT ZERO. 


FINALLY, THE TEST WRITES A SHIFTING ONE BIT PATTERN IN’ THE 
REGISTER AND VERIFIES THAT ALL BIT POSITIONS ARE INDEPENDENT. 


PROBABLE FAULT: 
1. IF MODULE 
2. CS MODULE 
3. DS MODULE 


SEG 0017 
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CLEAR OFFSET STUCK ACTIVE TEST 


PURPOSE : 


TO VERIFY THAT THE SIGNAL WHICH CLEARS OFFSET MODE IS NOT 
STUCK IN ACTIVE STATE. 


PROCEDURE : 


THE TEST WRITES A ONE IN THE OFFSET DIRECTION BIT WHICH IS 
CLEARED BY THE SIGNAL AND VERIFIES THAT A ONE CAN BE READ BACK. 


PROBABLE FAULT: 
1. IF MODULE 
2. DS MODULE 


OFFSET REGISTER TRANSFER TEST 


PURPOSE : 


TO VERIFY THAT THE OFFSET REGISTER IS NOT STUCK AT ONE, 
STUCK AT ZERO, AND THAT THERE IS NO ADJACENT BIT INTERFERENCE. 


PROCEDURE : 
THE OFFSET REGISTER, RMOF, IS WRITTEN WITH ONES, THEN 
vob Sy ZEROS AND READ TO VERIFY THAT NONE OF THE BITS ARE 
UCK . 


THEN THE OFFSET REGISTER IS WRITTEN WITH ZEROS AND WRITTEN 
WITH ONES TO VERIFY THAT THE REGISTER IS NOT STUCK AT ZERO. 


FINALLY, THE OFFSET REGISTER IS TESTED WITH A SHIFTING ONE 
BIT PATTERN. 


PROBABLE FAULT: 
1. IF MODULE 


SEQ 0018 
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SERIAL NUMBER TEST 
PURPOSE : 
TO VERIFY THAT THE SERIAL NUMBER CAN BE READ. 
PROCEDURE : 


THE TEST READS THE SERIAL NUMBER peg Hs SEVERAL TIMES AND 
VERIFIES THAT THE NUMBER IS THE SAME EACH TIME. 


PROBABLE FAULT: 


1. CS MODULE 


CONTROL BUS PARITY DETECTION TEST 
PURPOSE : 
TO TEST THE RMO3'S PARITY CHECKING LOGIC FOR THE MASSBUS 


ASYNCHRONOUS CONTROL BUS. 
PROCEDURE : 

THIS TEST WRITES A SHIFTING ONE BIT DATA PATTERN IN THE DISK 
ADDRESS REGISTER USING ‘PAT’ TO CONTROL THE STATE OF THE PARITY 
BIT. ‘PAR'' STATUS, BIT O3 OF RMER1, IS CHECKED AFTER EACH 


PATTERN IS TRANSFERRED. .NOTE THE FOLLOWING TABLE SHOWS A SET OF 
3 <M age THAT COULD BE USED INSTEAD OF A SHIFTING ONE BIT 


DATA PATTERN PAT PAR 


116535 

PROBABLE FAULT: 

1. IF MODULE 

2. ASSYNCHRONOUS MASSBUS MODULE 
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CONTROL BUS PARITY GENERATION TEST 
PURPOSE : 


TO TEST THE RMO3'S PARITY GENERATING LOGIC FOR THE MASSBUS 
ASYNCHRONOUS CONTROL BUS. 


PROCEDURE : 


THE TEST TRANSFERS A SHIFTING ONE BIT DATA PATTERN 10 _ THE 
DISK ADDRESS REGISTER. AFTER EACH PATTERN IS READ BACK, ‘MASSBUS 
CONTROL BUS PARITY ERROR'’ IS TESTED AND SHOULD BE ZERO..NOTE THE 
FOLLOWING SET OF TEST PATTERNS COULD BE USED INSTEAD OF THE 
SHIFTING ONE BIT PATTERN. 


DATA PATTERN MCPE 


RVVVVVVYVNNVYNNN 


ee a ee ae 


0 
0 
0 
0 


163135 
PROBABLE FAULT: 
1. IF MODULE 
2. ASYNCHRONOUS MASSBUS MODULE 


3 2 Se eo I BB BB BBP BV OV SH SH BO OS 


MVNMVNVANNNAN 


RMDA, RMDC FAULT TEST 
PURPOSE : 
TO VERIFY THAT THERE ARE NOT FAULTS WHICH INHIBIT THE 
aaa FROM WRITING RMDC AND RMDA. SPECIFICALLY, THESE FAULTS 


."'GO H’’ STUCK HIGH, WHICH WOULD INHIBIT THE REGISTER LOAD 
FUNCTION, 


-RIP L** STUCK LOW, WHICH WOULD CONSTANTLY CLEAR THE 
REGISTER 


. EBL’ STUCK, WHICH WOULD INHIBIT THE CLOCK FUNCTION. 
PROCEDURE : 


THE TEST WRITES AND READS BOTH RMDC, AND RMDA. WITH ZEROS, 
THEN ONES. THE TEST PASSES IF EITHER REGISTER CAN BE WRITTEN 


_ 2 So I 
MMMNMNMNNMNMNMNMNMNMMYNANNN 
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876 WITH ONES. 


SS. 2 I I I OI I 
VRRVVVVVVVVVANNY 


WWW WWW I I PMR RRN 


—_ 


a cs se 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
1 
; 
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1 
1 
1 
1 
1 
1 
1 
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1 
1 
1 
1 
1 
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PROBABLE FAULT: 
1. DS MODULE 
2. IF MODULE 
3. CS MODULE 


ADDRESS TRANSFER TEST 
PURPOSE : 


TO VERIFY THAT THE DISK ADDRESS REGISTER IS NOT STUCK AT ONE 
OR ZERO, AND THAT THERE IS NOT BIT INTERFERENCE. 


PROCEDURE : 

THIS TEST PRESETS THE DISK ADDRESS TO A NONZERO VALUE, THEN 
USES A MOVE TO CLEAR THE REGISTER.THE TEST THEN READS RMDA AND 
VERIFIES THAT NONE OF THE BITS ARE STUCK AT ONE. 

THEN THE TEST PRECLEARS THE MASSBUS ADAPTER DISK _ ADDRESS 
REGISTER (RMDA), LOADS IT TO ALL ONES, AND VERIFIES THAT NONE OF 
THE BITS ARE STUCK AT ZERO. 

A SHIFTING ONE BIT PATTERN IS TRANSFERRED TO AND FROM THE 
DISK ADDRESS REGISTER, RMDA, AND THE TEST VERIFIES THAT EACH BIT 
IS INDEPENDENT. 

PROBABLE FAULT: 
1. DS MODULE 


2. IF MODULE 


DESIRED CYLINDER TRANSFER TEST 
PURPOSE : 
TO VERIFY THAT THE DESIRED CYLINDER ADDRESS REGISTER, RMDC, 


IS NOT STUCK AT ONE OR ZERO, AND THAT THERE IS NOT BIT 
INTERFERENCE. 
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ae 
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35 
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35 
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35 
35 
36 
36 
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36 
36 
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36 
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37 
37 
37 
37 
37 
37 
37 
37 
3? 
37 
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4 ss SS a BS HS I HI HY DV ss DV SHS SF SS 
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THIS TEST WRITES ONES IN THE DESIRED CYLINDER REGISTER RMDC, 
THEN WRITES ZEROS AND VERIFIES THAT THE REGISTER IS NOT STUCK AT 


THEN THE TEST WRITES ZEROS IN THE DESIRED CYLINDER REGISTER, 
pasty WRITES ONES AND VERIFIES THAT THE REGISTER IS NOT STUCK AT 


FINALLY, A SHIFTING 1 BIT PATTERN IS TRANSFERRED TO AND FROM 
RMDC AND THE PROGRAM CHECKS FOR BIT INTERFERENCE. 


PROBABLE FAULT: 
1. DS MODULE 
2. IF MODULE 


IDB DBB BS 8 8 8 ko 3 89 


ILLEGAL REGISTER TEST 
PURPOSE : 


TO TEST ILLEGAL REGISTER ERROR DETECTION IN THE RMO3. 


PROCEDURE : 

THIS TEST READS ALL LEGAL REGISTERS AND VERIFIES THAT ‘'ILR"’, 
BIT 2 OF RMER1 DOES NOT SET. THEN, TO THE EXTENT ALLOWED BY THE 
MASSBUS CONTROLLER, IT READS ILLEGAL REGISTERS AND VERIFIES THAT 
“ILR'’ IS SET. 
PROBABLE FAULT: 
1. IF MODULE 


2. ASSYNCHRONOUS MASSBUS MODULE 
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RESET GO BY INIT TEST 
PURPOSE : 
TO VERIFY THAT GO CAN BE RESET BY INITIALIZE. 
PROCEDURE : 


THE TEST SETS GO THEN CLEARS GO USING MASSBUS INITIALIZE, 
1.E., CONTROLLER CLEAR. 


PROBABLE FAULT: 
1. CS MODULE 
2. IF MODULE 


DIAGNOSTIC MODE TEST 
PURPOSE : 


TO VERIFY THAT ‘DIAGNOSTIC MODE'', BIT 0 OF RMMRI, IS NOT 
STUCK AT ONE OR ZERO. 


PROCEDURE : 

THE RMO3 IS INITIALIZED AND ‘DMD'' IS CHECKED FOR ZERO. 
*DMD'* IS WRITTEN WITH ONE AND READ TO VERIFY THAT IT IS NOT STUCK 
AT ZERO, THEN WRITTEN WITH ZERO AND READ TO VERIFY THAT IT IS NOT 
STUCK AT ONE. 

PROBABLE FAULT: 
1. CS MODULE 


2. IF MODULE 


MOL TEST 
PURPOSE : 


TO VERIFY THAT ‘MEDIUM ON LINE" STATUS CAN BE SET AND RESET 
USING MAINTENANCE UNIT READY. 





CZRMJ( 
CZRMJ( 


143; 
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1040 PROCEDURE : 
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AFTER INITIALIZING THE SUBSYSTEM, THE TEST SETS ‘DIAGNOSTIC 
MODE: AND READS THE DRIVE STATUS REGISTER, RMDS, EXPECTING MOL, 
BIT 12 TO BE ZERO. ‘MAINTENANCE UNIT READY'', BIT 9 OF RMMRI, IS 
SET AND MOL SHOULD BE ONE. THE TEST THEN “WRITES A ZERO IN MUR 
AND READS RMDS, VERIFYING THAT ‘MEDIUM ON LINE'’ IS ZERO. 
PROBABLE FAULT: 
1. CS MODULE 


2. IF MODULE 


an 


WRITE LOCK TEST 
PURPOSE : 


TO VERIFY THAT ‘WRITE LOCK'’ STATUS, WRL, CAN BE SET AND 
RESET USING ‘MAINTENANCE WRITE PROTECT’, MwP. 


PROCEDURE : 

WITH DIAGNOSTIC MODE SET, THE PROGRAM SETS MWwP, BIT 03 OF 
RMMR1, AND READS RMDS TO VERIFY THAT WRL, BIT 11 IS SET. THEN 
MWP IS RESET AND WRL SHOULD BE ZERO. 

PROBABLE FAULT: 
1. CS MODULE 


2. IF MODULE 


DRIVE FAULT TEST 
PURPOSE : 


TO VERIFY THAT ‘DEVICE CHECK’', DVC, AND ‘UNSAFE’', UNS, CAN 
BE SET AND RESET USING ‘MAINTENANCE DRIVE FAULT'', MDF. 


PROCEDURE : 
WITH DIAGNOST!C MODE SET, THE PROGRAM SETS MDF, BIT 06 OF 


RMMR1, AND READS RMER3 TO VERIFY THAT DVC, BIT O07 IS SET RMER1 IS 
ALSO READ AND UNS, BIT 14 SHOULD ALSO BE SET. THEN MDF IS_ RESET 


1 
1 
1 
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1 
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1 
1 
1 
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1 
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1 
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AND DVC AND UNS SHOULD BE RESET. 


SEQ 0028 





dD 3 
CZRMJCO RMO3/2_ DSKLS PRT 1 MACY11 30A(1052) 21-AUG-78 09:22 PAGE 29 SEQ 0029 
CZRMJC.P11 21-AUG-78 09:19 


PAGE 21 


PROBABLE FAULT: 
1. CS MODULE 
2. IF MODULE 


ERROR TEST 
PURPOSE : 


TO VERIFY THAT ‘'SEEK as SKI, CAN BE SET AND RESET USING 
"MAINTENANCE SEEK ERROR'', MSER 


PROCEDURE : 

WITH DIAGNOSTIC MODE SET, THE TEST SETS MSER, BIT O7 OF 
RMMR1 AND READS RMER3 TO VERIFY THAT SKI, BIT 14 IS SET. MSER IS 
RESET AND SKI SHOULD RESET. 

PROBABLE FAULT: 
1. CS MODULE 


2. IF MODULE 


PIP TEST 
PURPOSE : 


TO VERIFY THAT ‘POSITIONING IN PROGRESS'', PIP, CAN BE SET 
AND RESET USING ‘MAINTENANCE ON CYLINDER’’, MOC. 


PROCEDURE : 

DIAGNOSTIC MODE IS SET THEN MOC, BIT 08 OF RMMR1 IS SET AND 
PIP, BIT 13 OF RMDS, SHOULD BE ZERO. MOC IS THEN RESET AND PIP 
SHOULD BE ONE. 
PROBABLE FAULT: 
1. CS MODULE 


2. IF MODULE 
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EBL TEST 
PURPOSE : 


TO VERIFY THAT END OF BLOCK STATUS ‘TBL** CAN BE SET AND 
RESET USING DIAGNOSTIC END OF BLOCK ‘DEBL"’. 


PROCEDURE : 

THE PROGRAM SETS DIAGNOSTIC MODE AND VERIFIES THAT EBL IS 
RESET. THEN IT SETS DEBL AND VERIFIES THAT EBL IS SET. FINALLY, 
THE TEST TRANSFERS A SHIFTING ONE BIT TO RMMR1, AND CHECKS FOR 
DEBL BEING SET BY AN ADJACENT BIT. 

PROBABLE FAULT: 


1. CS MODULE 


a eee ss 
AAARAARARAARAHD 


SECTOR, LAST TRACK TEST 
PURPOSE : 


TO VERIFY THE ey TRACK/SECTOR PLA ON THE DS MODULE 
USING RMMR1, BITS 01 AND 02. 


PROCEDURE : 

THE TEST WRITES ALL POSSIBLE hee IN THE DISK ADDRESS 
REGISTER, RMDA, AND VERIFIES ‘1S’ D "LS/T*' STATUS FOR EACH 
PATTERN. THE PROCEDURE IS DONE ONCE FOR 16 BIT FORMAT AND ONCE 
FOR 18 BIT FORMAT. 

PROBABLE FAULT: 
1. DS MODULE 


2. CS MODULE 


00 00 Co SINNNNSINN oO MVvIVnu 
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COUNT TEST 
PURPOSE 
TO VERIFY THAT THE DISK ADDRESS REGISTER (RMDA) INCREMENTS 


Saue 
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PROCEDURE : 


THE TEST INCREMENTS RMDA USING DIAGNOSTIC END OF _ BLOCK 
*DEBL'' AND VERIFIES THE RESULT IN BOTH 16 AND 18 BIT FORMAT. 


PROBABLE FAULT: 
1. DS MODULE 


MMMM NM NNPonlrrrnrnt 
= ad 
| 
mn 


Nm 
WISER on wear 
OONAUSWN—OODONAUSWNH OO 


COUNT TEST 
PURPOSE : 


TO VERIFY THAT THE DESIRED CYLINDER REGISTER, RMDC, 
INCREMENTS PROPERLY. 


PROCEDURE : 


THE PROGRAM INCREMENTS RMDC USING DIAGNOSTIC END OF BLOCK, 
*DEBL'', VERIFYING THAT RMDC INCREMENTS THROUGH A COMPLETE CYCLE. 


PROBABLE FAULT: 
1. DS MODULE 


Rome yA YWAWAAARAAAA 


LBT TEST 
PURPOSE : 


TO INSURE THAT LAST BLOCK TAKEN STATUS, ‘1BT'', CLEARS WHEN 
RMDA IS WRITTEN, AND SETS WHEN THE LAST SECTOR 1S TRANSFERRED. 


PROCEDURE : 


THE TEST USES DIAGNOSTIC EBL TO SET LBT, AND iRANSFERS TO 
RMDA TO RESET LBT. 


PROBABLE FAULT: 
1. DS MODULE 
2. IF MODULE 
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COMPOSITE ERROR TEST 
PURPOSE : 

TO TEST “COMPOSITE ERROR’, BIT 14 OF RMDS. 
PROCEDURE : 

THE TEST USES INITIALIZE AND DIAGNOSTIC MODE TO FORCE ALL 
ERRORS TO ZERO THEN VERIFIES THAT ‘ERR’ IS ZERO. EACH ERROR IS 
INDIVIDUALLY SET AND ‘ERR’ SHOULD BE ONE FOR EVERY ERROR TESTED. 
ot #2. AND #17 OF THE COMPOSITE ERROR PLA ARE NOT TESTED. 
*"ABORT"* “EXCEPTION’’ OUTPUTS OF THE PLA ARE NOT TESTED. _ THE 
TEST FAILS IF ERR IS NOT gi WITH ALL SET ARGUMENTS ZERO OR IF 
ERR IS NOT ONE WITH ANY SET ARGUMENT ONE. 

PROBABLE FAULT: 


1. IF MODULE 


1 
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1 
1 
1 
1 
1 


EERLLRRR 


WRITE GO TEST 
PURPOSE : 

TO VERIFY THAT GO CAN BE SET. 
PROCEDURE : 

THE TEST ENABLES THE DEBUG CLOCK, THEN TRANSFERS A NOP 
se ae a ate TO RMCS1, VERIFYING THAT GO SETS. ALL 
PROBABLE FAULT: 

1. IF MODULE 


2. CS MODULE 


SSSSssssssy 
9 9 90 & G G G0 G9 Fo FO G2 Go Go Oo Oo Op Oe Go 00 Oo 


3 os + > 2 


Go 
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BRANCH MULTIPLEXOR TEST 
PURPOSE : 
TO VERIFY THAT THE OUTPUT OF THE COMMAND SEQUENCER 


NORQ 2 SS RS eo oe 
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PROCEDURE : 

WITH DEBUG CLOCK ENABLED, THE TEST USES VARIOUS FUNCTION 
CODES AND REGISTER CONDITIONS 10 ADDRESS THE TEST BIT MULTIPLEXOR 
SUCH THAT THE TEST BIT, BIT12 OF RMMR2, CAN BE CHECKED FOR A 
STUCK FAULT. 

PROBABLE FAULT: 


1. CS MODULE 


ae 


SET/RESET GO TEST 
PURPOSE : 
TO VERIFY THAT GO CAN BE SET AND RESET. 
PROCEDURE : 
‘pane “clotn eat, mt ae AND PUT IN DIAGNOSTIC MODE WITH 


ARE WRITTEN IN RMCS1 AND THE PROGRAM READ 0) 
O READ TO VERIFY THAT ‘DRY'' IS ag 


BAAWAYAAARRESERELEEE 
PUAN SO SMNRARWN HO 
RRRRPSSES 


S S. 
THAT RESETS GO AT A DIFFERENT PROM ADDRESS. THE TEST FAILS IF GO 
DOES NOT SET OR CANNOT BE RESET BY THE COMMAND SEQUENCER. THE 
TEST ALSO FAILS IF ‘DRIVE READY*’ IS NOT THE COMPLIMENT OF GO. 
PROBABLE FAULT: 
1. CS MODULE 


2. IF MODULE 


SASSSESSE SRS SES RA 


END 1 RESET GO TEST 
PURPOSE : 


TO VERIFY THAT THE COMMAND SEQUENCER CAN RESET GO AT THE 
END1 LOCATION. 


PROCEDURE : 
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THE TEST EXECUTES RELEASE, SEARCH AND ILLEGAL FUNCTION CODE 
32 IN DIAGNOSTIC MODE AND VERIFIES THAT GO RESETS ON THE 
SPECIFIED CLOCK CYCLE. 
PROBABLE FAULT: 


1. CS MODULE 


SET PULSE TEST 
PURPOSE : 

TO VERIFY THAT THE COMMAND SEQUENCER CAN GENERATE SET PULSE. 
PROCEDURE : 

WHICH DEBUG CLOCK ENABLED, THE TEST STEPS THE COMMAND 
SEQUENCER THROUGH PARTS OF VARIOUS FUNCTION CODES AND CHECKS 
CONTINUE, BIT 06 OF RMMR1 TO DETERMINE IF SET PULSE IS BEING 
GENERATED. 

PROBABLE FAULT: 


1. CS MODULE 


SET/RESET IVC TEST 
PURPOSE : 
TO TEST "‘INVALID COMMAND'' STATUS FOR EACH FUNCTION CODE. 
PROCEDURE : 
THE PROGRAM RESETS VOLUME VALID SING "MAINTENANCE UNIT 
BITO9 OF RMMR1, THEN LOADS THE FUNCTION CODE AND GO IN 
. EACH FUNCTION CODE IS TESTED AND “‘IVC’', BIT 12 OF RMER2 
IS CHECKED. 
PROBABLE FAULT: 
1. CS MODULE 


2. IF MODULE 


SEQ 0037 
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SET LSC TEST 
PURPOSE : 
TO VERIFY THAT ‘LOSS OF SYSTEM CLOCK’ CAN SET AND RESET. 
PROCEDURE : 
aur DEST EMAES "OAR aOR I ETE ESOT BHT SARE 
THE DEBUG CLOCK AND VERIFIES THAT LSC SETS. 
PROBABLE FAULT: 
1. CS MODULE 


2. IF MODULE 


DECODE TEST 
PURPOSE : 


TO VERIFY THAT THE ‘DECODE’’ FLOP ON THE IF MODULE SETS WITH 
Oe sana EDGE OF ‘'SET PULSE'’ EXCEPT WHEN ‘‘COMPOSITE ERROR'' IS 


PROCEDURE : 


i 
THE TEST USES ‘VOLUME VALID’* AND ‘OCCUPPIED'' TO DETERMINE IF 
THE DECODE FLOP IS SET OR RESET. INITIALLY, VV AND OCCUPPIED ARE 
RESET AND THE TEST EXECUTES THOSE COMMANDS WHICH SET VV OR OCC 
AND VERIFIES THAT ONE OR BOTH BITS SET. THE SAME COMMANDS ARE 
EXECUTED AGAIN WITH COMPOSITE ERROR SET, AND THE TEST VERIFIES 
THAT NEITHER BIT SETS. 


PROBABLE FAULT: 
1. IF MODULE 


SET/RESET VOLUME VALID TEST 
PURPOSE : 
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TO VERIFY THAT ‘VOLUME VALID'' RESETS WITH THE LEADING EDGE 
OF UNIT READY, AND SETS WITH PACK ACKNOWLEDGE AND READ IN PRESET 
COMMANDS. 

PROCEDURE : 

USING "MAINTENANCE UNIT READY'', BIT 9 OF RMMR1, THIS TEST 
FORCES A ZERO TO ONE TRANSITION OF UNIT READY AND VERIFIES THAT 
VOLUME VALID,BIT 6 OF RMDS IS ZERO. THEN THE TEST EXECUTES A 
PACK ACKNOWLEDGE COMMAND, VERIFYING THAT VV SETS. THE PROCEDURE 
IS REPEATED WITH A READ IN PRESET COMMAND. 

PROBABLE FAULT: 


1. IF MODULE 


SRL 


ILLEGAL FUNCTION TEST 

PURPOSE : 

TO TEST ILLEGAL FUNCTION ERROR IN THE RMO3. 
PROCEDURE : 

WITH DIAGNOSTIC CLOCK ENABLED TO INHIBIT THE COMMAND 
SEQUENCER, THIS TEST VERIFIES THAT ‘"ILF*', BIT O OF RMER1, IS OFF 
FOR LEGAL FUNCTION CODES AND ON FOR ILLEGAL FUNCTIONCODES. THE 
STATUS OF THE ‘‘GO"’ BIT IS IGNORED. 
PROBABLE FAULT: 


1. IF MODULE 
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OCCUPIED TEST 
PURPOSE : 


TO VERIFY THAT ‘OCCUPIED'' IS SET DURING DATA TRANSFERS AND 
IS RESET FOR ALL OTHER COMMANDS. 


PROCEDURE : 
FOR EACH DATA TRANSFER COMMAND, ‘OCC’', BIT 15 OF RMMR1 


NNVANNANNNNN 
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1549 SHOULD BE ONE, DEBUG CLOCK IS ENABLED TO PREVENT GO FROM 
1550 RESETTING BEFORE STATUS IS SAMPLED. 


NMMNNN 


INMNNNNANNNN 





D 4 
CZRMJCO RMO3/2 DSKLS PRT 1 MACY11 30A(1052) 21-AUG-78 09:22 FAGE 42 SEQ 0042 
CZRMJC.P11 21-AUG-78 09:19 


1551 PAGE 29 


1554 PROBABLE FAULT: 
1556 1. IF MODULE 
1558 2. CS MODULE 


1565 READ IN PRESET TEST 

1567 PURPOSE : 

1569 TO VERIFY THAT "READ IN PRESET’’ COMMAND IS DECODED, AND IN 
1570 PARTICULAR, TO VERIFY THAT ‘IFS READ IN CMD L*’ IS NOT STUCK AT 
1571 ONE . 

1573 PROCEDURE : 

1575 EACH VISIBLE STATUS OR REGISTER BIT WHICH IS CLEARED BY 
1576 ‘READ IN PRESET'' IS SET. THEN THE RIP COMMAND IS EXECUTED AND 
1577 THE TEST VERIFIES THAT ONE OR MORE BITS ARE CLEARED. THE 
1578 FOLLOWING ARE USED DURING THE TEST. 


1580 BITS 10-12 OF RMOF ARE SET BY A MOVE INSTRUCTION AND THE TEST 
1581 PASSES IF THESE BITS ARE ZERO AFTER THE RIP COMMAND. 


1583 . THE DESIRED ao REGISTER, RMDC, IS_ SET WITH A i 
1584 INSTRUCTION AND THE TEST PASSES IF BITS 00-03, OR BITS 04-07, 

hs BITS 08-09 ARE ZERO AFTER THE RIP COMMAND. 

1587 . THE DISK ADDRESS REGISTER, RMDA, IS SET WITH A_MOVE INSTRUCTION 
1588 AND THE TEST PASSES IF BITS 00-03, OR BITS 04-07, OR BITS 08-11, 
iF 24 OR BITS 12-15 ARE ZERO AFTER THE RIP COMMAND. 


1591 THE TEST FAILS IF NONE OF THE PRESET TERMS ARE ZERO AFTER THE RIP 
COMMAND . 


PROBABLE FAULT: 
1596 1. IF MODULE 


1603 RIP/RMOF TEST 
1605 PURPOSE : 
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TO VERIFY THAT ‘READ IN PRESET’ RESETS FMT16, ECI AND HCI, 
BITS 10,11 AND 12 OF RMOF. 


PROCEDURE : 


FMT16, ECI AND HCI ARE SET, THEN A RIP COMMAND IS EXECUTED 
AND EACH BIT SHOULD BE ZERO. 


PROBABLE FAULT: 
1. IF MODULE 


RMDA/RMDC/RIP TEST 
PURPOSE : 


TO VERIFY THAT "READ IN PRESET’’ RESETS THE DESIRED CYLINDER 
ADDRESS, RMDC, AND THE DISK ADDRESS, RMDA. 


PROCEDURE : 


RMDA AND RMDC ARE PRESET THEN TESTED FOR ZERO AFTER THE RIP 
COMMAND . 


PROBABLE FAULT: 
1. DS MODULE 


OFFSET COMMAND TEST 
PURPOSE : 
TO VERIFY THAT "OFFSET MODE"' SETS WITH OFFSET COMMAND. 
PROCEDURE : 


THE TEST EXECUTES GFFSET COMMAND AND VERIFIES THAT ‘OM’, BIT 
OO OF RMDS IS ONE. 


PROBABLE FAULT: 
1. IF MODULE 
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RETURN TO CENTER TEST 
PURPOSE : 
TO VERIFY THAT ‘RETURN TO CENTER'' RESETS OFFSET MODE. 
PROCEDURE : 
OFFSET MODE, BIT 00 OF RMDS, IS SET WITH OFFSET COMMAND, 
EXECUTES A RETURN TO CENTER COMMAND AND VERIFIES 
. OFFSET DIRECTION IS ALSO SET AND 
CHECKED FOR ZERO AFTER THE COMMAND. 
PROBABLE FAULT: 


1. IF MODULE 


CLEAR OFFSET TEST 
PURPOSE : 


TO VERIFY THAT CLEAR OFFSET IS ACTIVE WHEN THE DESIRED 
CYLINDER ADDRESS IS WRITTEN. 


PROCEDURE : 


THE TEST EXECUTES AN OFFSET COMMAND, WRITES RMDC, AND 
VERIFIES THAT OM, BIT OO OF RMDS IS ZERO. 


PROBABLE FAULT: 
1. DS MODULE 
2. IF MODULE 


EBL CLEAR OFFSET TEST 
PURPOSE : 
ane VERIFY THAT OFFSET MODE CLEARS WHEN HEAD SWITCHING 


— ot a tt ot eo 
YVWIS 
NOUS WM OO 


PROCEDURE : 
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721 THE TEST EXECUTES AN OFFSET COMMAND TO SET OFFSET MODE. 
722 AFTER SETTING THE FORMAT BIT AND LOADING THE LAST SECTOR/TRACK 
723 ADDRESS IN RMDA, THE TEST FORCES AN EBL AND VERIFIES THAT OFFSET 
724 MODE RESETS. 

1726 ; PROBABLE FAULT: 


1728 1. DS MODULE 


1735 RUN AND GO TEST 
1737 PURPOSE : 


1739 TO VERIFY THAT ‘'RUN AND GO"' FLOP SETS DURING READ AND WRITE 
1740 COMMANDS . 


1742 PROCEDURE : 

1744 E RMO3 IS INITIALIZED AND A DATA TRANSFER COMMAND WITH GO 
1745 SET 1S" URITTEN IN RMCS1. ‘RUN AND GO"', BIT 14 OF RMMR1 SHOULD BE 
1746 ONE FOR EACH DATA COMMAND. THE DEBUG CLOCK IS ENABLED SO THAT GO 
1747 DOES NOT RESET BEFORE STATUS IS TESTED. 

1749 PROBABLE FAULT: 

1751 1. CS MODULE 


1753 2. SYNCHRONOUS MASSBUS MODULE 


1760 SET IAE TEST 

1762 PURPOSE : 

1764 TO VERIFY THAT INVALID ADDRESS ERROR CAN SET. 

PROCEDURE : 

1768 THE TEST LOADS — SECTOR, TRACK AND CYLINDER “eee 
1769 AND EXECUTES A SEARCH COMMAND, VERIFYING THAT ‘‘IAE'' SETS. THE 
1770 PROCESS IS REPEATED WITH A DIFFERENT vg | IF THE IAE DOES NOT 
1771 SET, AND THE TEST FAILS IF IAE CANNOT BE SET 


1773 PROBABLE FAULT: 
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1. DS MODULE 
2. IF MODULE 


SEARCH, SEEK, READ, WRITE TEST 
PURPOSE : 


TO VERIFY THAT THE "SCH SK R OR W'’ DECODE ON THE IF MODULE 
IS CORRECT FOR ALL FUNCTION CODES. 


PROCEDURE : 

THE TEST LOADS INVALID SECTOR, TRACK AND CYLINDER ADDRESSES 
AND EXECUTES EACH COMMAND TO WHERE. SET PULSE IS ACTIVE AND 
VERIFIES THE DECODE BY CHECKING “‘IAE"’. 
PROBABLE FAULT: 


1. IF MODULE 


SZZIPSRIIISSS 


388 


INVALID SECTOR/TRACK TEST 
PUPOSE : 


TO VERIFY THAT INVALID SECTOR AND TRACK ADDRESSES ARE 
DETECTED. 


PROCEDURE : 


THE TEST LOADS THE TEST PATTERN IN RMDA AND EXECUTES A 
SEARCH COMMAND, VERIFYING THAT ‘"‘IAE’’ SETS. 


PROBABLE FAULT: 
1. DS MODULE 
2. TRACK ADDRESS OPTION JUMPER 


SESeaR 


0 00 00 C0 00 C0 Op CO Co CO 
ab cad aad and oe ced cath ond cee eed 
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1 
1 
1 
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1 
1 
1 
1 
1 
1 
1 
; 
1 
1 
1 
1 
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INVALID CYLINDER TEST 
PURPOSE : | 
TO VERIFY THAT INVALID CYLINDER ADDRESSES ARE DETECTED. 
PROCEDURE : 


THE TEST LOADS THE TEST PATTERN i. RMDC AND EXECUTES A 
SEARCH COMMAND, VERIFYING THAT “‘IAE*’ SETS 


PROBABLE FAULTS: 
1. DS MODULE 
2. CYLINDER ADDRESS OPTION JUMPER 


SET AOE TEST 
PRUPOSE : 


TO VERIFY THAT ADDRESS OVERFLOW ERROR IS DETECTED. 
PROCEDURE : 


THE TEST LOADS THE ADDRESS OF THE LAST SECTOR IN RMDA_ AND 
RMDC, THEN mgt wet. A DATA COMMAND WITH DEBUG CLOCK ENABLED. 
END OF BLOCK IS FORCED TO INCREMENT THE SECTOR ADDRESS, AND THE 
TEST VERIFIES THAT ‘'AOE’’ IS SET. 

PROBABLE FAULT: 


1. DS MODULE 


SET RMR TEST 
PURPOSE : 
TO VERIFY THAT "REGISTER MODIFICATION REFUSED** SETS WHEN 
REGISTER IS WRITTEN WHILE GO IS SET, EXCEPT WHEN THE ATTENTION OR 
MAINTENANCE REGISTER IS WRITTEN. 


PROCEDURE : 


SEQ 0047 
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248 


“DEBUG CLOCK ENABLE’’ IS SET TO INHIBIT THE COMMAND 
SEQUENCER, THEN A NOP COMMAND AND GO BIT IS WRITTEN IN RMCS1. 
WITHOUT STEPPING THE oy oe CLOCK, THE TEST WRITES RMMR AND RMAS, 

WHICH SHOU NOT SET RMR STATUS. THEN RMDA iS WRITTEN AND RMR 
STATUS, BIT 2 OF RMER1, SHOULD BE ONE. 
PROBABLE FAULT: 


1. IF MODULE 


PGM STATUS CHECK 
PURPOSE : 


TO VERIFY THAT THE PROGRAMMABLE STATUS BIT AND THE DRIVE 
REQUEST STATUS BIT ARE COMPATABLE. 


PROCEDURE : 

THE TEST REPORTS AN ERROR IF PGM IS ON AND DRQ IS OFF. PGM 
IS NOT PREDICTABLE IN THE CASE WHERE DRQ IS ON BECAUSE OF THE 
PORT SELECT SWITCH. 
PROBABLE FAULT: 


1. IF MODULE 


238 
“4 


j 
; 
1 
1 
1 
1 
1 
1 
1 
1 


O0000 00 
Pa Pom Pw P= Pos P= Pw} 
BDONAUSWM—oO 


DVA/DPR STATUS CHECK PURPOSE: 


TO VERIFY THAT DRIVE PRESENT STATUS AND DEVICE AVAILABLE 
STATUS ARE SET. 


PROCEDURE : 

DPR AND DVA ARE TESTED AND BOTH SHOULD BE ON. 
PROBABLE FAULT: 
1. IF MODULE 
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PORT REQUEST TEST, PART 1/3 
PURPOSE : 


TO VERIFY THAT THE PORT REQUEST FLOPS ON THE IF MODULE SET 
WHEN THE PROGRAM READS RMCS1. 


PROCEDURE : 

THE TEST EXECUTES A RELEASE COMMAND, THEN, ASSUMING THE PORT 
IS RELEASED, IT READS RMCS1, THEN READS RMMR2 AND VERIFIES THAT 
ONE OF THE PORT REQUEST FLOPS IS SET. 
PROBABLE FAULT: 
1. IF MODULE 


2. CS MODULE 


REQUEST TEST, PART 2/3 


PURPOSE : 


TO VERIFY THAT THE PORT REQUEST FLOPS ON THE IF MODULE SET 
WHEN THE PROGRAM WRITES RMAS. 


PROCEDURE : 


THE TEST EXECUTES A RELEASE COMMAND THEN WRITES RMAS AND 
READS RMMR2, VERIFYING THAT ONE OF THE REQUEST FLOPS IS SET. 


PROBABLE FAULT: 
1. IF MODULE 
2. CS MODULE 


COMMAND TESTS 
PURPOSE : 
TO VERIFY THE COMMAND SEQUENCER DURING DATA COMMANDS. 
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1991 PROCEDURE : 
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1993 
1994 
1995 THIS TEST, LIKE RECALIBRATE, SEEK, AND SEARCH TESTS, USES 
1996 LL, MAINTENANCE REGISTER TO SIMULATE DRIVE CONDITIONS AND FORCE 
1997 THE COMMAND SEQUENCER THROUGH EACH BRANCH PATH. ADDITIONAL ITEMS 
1998 WHICH ARE TESTED INCLUDE OFFSET PLUS AND MINUS ON THE TAG BUS AND 
1999 "ENABLE SEARCH'’, BIT 11 OF RMMR1. 

2001 PROBABLE FAULT: 

2002 

2003 1. CS MODULE 

2004 

2005 

2006 

2007 

2008 

2009 

sor DATA SEQUENCER READ TEST 

a PURPOSE : 

2014 TO TEST THE CS AND DS MODULES FOR EXECUTION OF A_ READ 
2015 COMMAND. 

2016 

4t4 PROCEDURE : 

2019 hy IS INITIALIZED AND, USING DIAGNOSTIC MODE, A READ 
2020 come” IS STEPPED TO THE POINT WHERE THE COMMAND SEQUENCER 
2021 ENABLES SEARCH. THE PROGRAM THEN STARTS STEPPING THE DATA 
2022 SEQUENCER ON THE CS MODULE AND MONITORS HARDWARE OPERATION USING 
oO THE FOLLOWING STATUS: 

2025 -PLFS, BIT 10 OF RMMR1, SHOWS THE PERIOD WHEN THE DATA PROM 
2027 HAS ENABLED SYNC BYTE DETECTION; 

2028 -PDA, BIT 08 OF RMMR1, SHOWS WHEN THE DATA PROM IS IN THE 
p34 DATA AREA ° OF THE SECTOR; 

2031 PHA, T 07 OF RMMR1, SHOWS WHEN THE DATA PROM IS _ IN’ THE 
oor HEADER mA oF THE SECTOR; 

2034 -BB00, BITOO OF RMMR2, SHOWS THE STATE OF WRITE GATE 
SOee PROVIDING tae IS HIGH; 

2037 .BBO1, BIT 01 OF RMMR2, SHOWS THE STATE OF READ GATE PROVING 
on TAG IS HIGH; 

4} -WC, BIT OS OF RMMR1, SHOWS THE STATE OF WORD CLOCK; 

2042 -EECC, BIT 04 OF RMMR1, SHOWS WHEN ECC CHARACTER IS ENABLED 
M7 DURING WRITE; 

2045 -ECRC, BIT 09 OF RMMR1, SHOWS WHEN CRC CHARACTER IS_ ENABLED 


2046 DURING WRITE; 
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-WD, BIT 03 OF RMMR1, SHOWS THE STATE OF WRITE DATA. 
ADDITIONALLY, STATUS BITS IN RMER1 ARE USED TO TEST COMMAND 
EXECUTION. THE WRITE ONLY BITS OF RMMR1 ARE USED TO SIMULATE 
DRIVE STATUS AND CONTROL SIGNALS, AND TO SPECIFY READ DATA. 
PROBABLE FAULT: 
1. CS MODULE 


2. DS MODULE 


SEQUENCER WRITE TEST 
PURPOSE : 


TO TEST THE CS AND DS MODULES FOR EXECUTION OF A WRITE 
COMMAND . 


PROCEDURE : 
THE PROCEDURE IS THE SAME AS THE DATA SEQUENCER READ TEST. 
PROBABLE FAULT: 
1. CS MODULE 
2. DS MODULE 


SEQUENCER FORMAT TEST 
PURPOSE : 

TO TEST CS AND DS MODULES FOR EXECUTION OF A FORMAT COMMAND. 
PROCEDURE : 

THE PROCEDURE IS THE SAME AS THE DATA SEQUENCER READ TEST. 
PROBABLE FAULT: 
1. CS MODULE 
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2102 PAGE 39 
2103 
2104 
2105 2. DS MODULE 
2106 
2107 2 
2108 2 
2109 2 
2110 2 
2111 2 
2112 18 BIT WORD CLOCK TEST 2 
2113 2 
sie PURPOSE : $ 
e116 TO TEST THE GENERATION OF WORD CLOCK IN 18 BIT FORMAT. § 
tig PROCEDURE : $ 
2120 DIAGNOSTIC MODE IS USED TO EXECUTE A READ COMMAND. _ THE 2 
2121 PROGRAM VERIFIES THAT WORD CLOCK SWITCHES TO 18 BIT FORMAT AT THE 2 
2122 DATA AREA AND SWITCHES BACK TO 16 BIT FORMAT DURING ECC. THE 2 
sigs TEST IS REPEATED FOR A WRITE COMMAND. $ 
2125 PROBABLE FAULT: 2 
2126 2 
2127 1. CS MODULE 2 
2128 2 
2129 2. DS MODULE 2 
2130 2 
2131 2 
2132 2 
2133 2 
2134 2 
2135 2 
2136 HCRC SET TEST 2 
2137 é 
2138 PURPOSE : 2 
2139 é 
2140 TO VERIFY THAT ‘HCRC'' STATUS SETS WHEN THE HEADER CRC WORD 2 
2141 IS IN ERROR. 2 
2142 é 
gies PROCEDURE : é 
< 
2145 USING DIAGNOSTIC MODE TO EXECUTE A READ COMMAND, THE PROGRAM é 
2146 STEPS THE DATA SEQUENCER THROUGH THE HEADER AND PROVIDES Ld é 
2147 DATA WHICH SHOULD CAUSE A CRC ERROR. THE TEST FAILS IF ‘HCRC'’ é 
gies BIT 08 OF RMER1 DOES NOT SET. é 
< 
2150 PROBABLE FAULT: é 
2151 é 
2152 1. DS MODULE ¢ 
2153 é 
2154 2. IF MODULE ¢ 
2155 é 
¢ 
< 
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HCE SET TEST 
PURPOSE : 


TO VERIFY THAT iy — SETS IF THE HEADER DOES NOT 
COMPARE WITH RMDC AND R 


PROCEDURE : 

THE PROGRAM EXECUTES A READ COMMAND USING DIAGNOSTIC MODE. 
READ _DATA IS SUPPLIED WHICH —"¥ A HEADER COMPARE ERROR IN BITS 
00-03 OF HEADER WORD ONE AND THE PROGRAM VERIFIES THAT ‘HCE'', BIT 
4 md RMER1 IS ONE. THIS PROCESS IS REPEATED FOR BITS 04-07 AND 
PROBABLE FAULT: 
1. DS MODULE 
2. CS MODULE 


3. IF MODULE 


FER SET TEST 
PURPOSE : 


TO VERIFY THAT ‘‘FER’’ STATUS SETS WHEN THE FORMAT BIT DOES 
NOT COMPARE WITK THE HEADER. 


PROCEDURE : 

THIS PROGRAM EXECUTES A READ COMMAND USING DIAGNOSTIC MODE 
AND FORCES A FORMAT ERROR IN THE FIRST HEADER WORD. THE TEST 
FAILS IF ‘ER’, BIT 04 OF RMER1 DOES NOT SET. 
PROBABLE FAULT: 
1. DS MODULE 
2. CS MODULE 


3. IF MODULE 
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DCK SET TEST 
PURPOSE : 


TO VERIFY THAT ‘DCK'' STATUS SETS WHEN A _ CORRECTABLE ECC 
ERROR OCCURRS. 


PROCEDURE : 

THE PROGRAM SIMULATES A READ OPERATION AND FORCES AN ECC 
ERROR WHICH IS CORRECTABLE. ‘DCK’', BIT 15 OF RMER1 SHOULD BE SET 
AND "'ECH'', BIT 06 OF RMER1 SHOULD BE RESET. RMEC1 AND RMEC2 
SHOULD PERMIT DATA CORRECTION. 

PROBABLE FAULT: 
1. DS MODULE 
2. CS MODULE 


3. IF MODULE 


ECH SET TEST 
PURPOSE : 


TO VERIFY THAT ‘ECH’’ STATUS SETS WHEN A NONCORRECTABLE ECC 
ERROR OCCURRS DURING READ. 


PROCEDURE : 


THIS TEST IS LIKE THE DCK SET TEST EXCEPT THE PROGRAM USES 
AN UNCORRECTABLE ERROR BURST. 


PROBABLE FAULT: 
1. DS MODULE 
2. CS MODULE 
3. IF MODULE 


ra 
cA 
cA 
2 
r4 
2. 
r4 
r4 
2 
2 
r4 
2 
r4 
2 
2 
a 
2 
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2261 DVA/DPR 


2264 STATUS CHECK PURPOSE: 


2266 TO + ge Ag THAT DRIVE PRESENT STATUS AND DEVICE AVAILABLE 
2267 STATUS ARE SET 


2269 PROCEDURE : 

2271 DPR AND DVA ARE TESTED AND BOTH SHOULD BE ON. 
2273 PROBABLE FAULT: 

2275 1. IF MODULE 


2282 PGM STATUS CHECK 
2284 PURPOSE : 


2286 TO VERIFY THAT THE PROGRAMMABLE STATUS BIT AND THE DRIVE 
2287 REQUEST STATUS BIT ARE COMPATABLE. 


88 
<— PROCEDURE : 
2291 THE TEST REPORTS AN ERROR IF PGM IS ON AND DRQ IS OFF. PGM 
2292 IS NOT PREDICTABLE IN THE CASE WHERE DRQ IS ON BECAUSE OF THE 
2293 PORT SELECT SWITCH. 
2294 
2295 PROBABLE FAULT: 


2297 1. IF MODULE 


SET AOE TEST 

2306 PRUPOSE : 

2308 TO VERIFY THAT ADDRESS OVERFLOW ERROR IS DETECTED. 
5316 PROCEDURE : 


2312 THE TEST LOADS THE ADDRESS OF THE LAST SECTOR IN RMDA_ AND 
2313 RMDC, THEN INITIATES A DATA COMMAND WITH DEBUG CLOCK ENABLED. 
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2314 END OF BLOCK IS FORCED TO — THE SECTOR ADDRESS, AND THE 
2315 TEST VERIFIES THA? ‘'AOE’' IS SET 


2s 
2s 
2s 
2s 
2s 
2s 
2s 
2s 
25 
2s 
2s 
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PROBABLE FAULT: 
1. DS MODULE 


CLEAR OFFSET STUCK ACTIVE TEST 
PURPOSE : 


TO VERIFY THAT THE SIGNAL WHICH CLEARS OFFSET MODE IS NOT 
STUCK IN ACTIVE STATE. 


PROCEDURE : 


THE TEST WRITES A ONE IN THE OFFSET DIRECTION BIT WHICH IS 
CLEARED BY THE SIGNAL AND VERIFIES THAT A ONE CAN BE READ BACK. 


PROBABLE FAULT: 
1. IF MODULE 
2. DS MODULE 


INVALID SECTOR/TRACK TEST 
PUPOSE : 


TO VERIFY THAT INVALID SECTOR AND TRACK ADDRESSES ARE 
DETECTED. 


PROCEDURE : 


THE TEST LOADS THE TEST PATTERN IN RMDA AND EXECUTES A 
SEARCH COMMAND, VERIFYING THAT “"IAE'' SETS. 


PROBABLE FAULT: 
1. DS MODULE 
2. TRACK ADDRESS OPTION JUMPER 








32 
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INVALID CYLINDER TEST 
PURPOSE : 
TO VERIFY THAT INVALID CYLINDER ADDRESSES ARE DETECTED. 
PROCEDURE : 


THE TEST LOADS THE TEST PATTERN IN RMDC AND EXECUTES A 
SEARCH COMMAND, VERIFYING THAT ‘‘IAE’’ SETS. 


PROBABLE FAULTS: 
1. DS MODULE 
2. CYLINDER ADDRESS OPTION JUMPER 


SEARCH, SEEK, READ, WRITE TEST 
PURPOSE : 


TO VERIFY THAT THE ‘'SCH SK R OR W'' DECODE ON THE IF MODULE 
IS CORRECT FOR ALL FUNCTION CODES. 


PROCEDURE : 

THE TEST LOADS INVALID SECTOR, TRACK AND CYLINDER ADDRESSES 
AND EXECUTES EACH COMMAND TO WHERE SET PULSE IS ACTIVE AND 
VERIFIES THE DECODE BY CHECKING ‘‘IAE"’. 
PROBABLE FAULT: 


1. IF MODULE 


EBL CLEAR OFFSET TEST 
PURPOSE : 
mm. VERIFY THAT OFFSET MODE CLEARS WHEN HEAD SWITCHING 


PROCEDURE : 





SEQ 0059 
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THE TEST EXECUTES AN OFFSET COMMAND TO SET OFFSET MODE. 
AFTER SETTING THE FORMAT BIT AND LOADING THE LAST SECTOR/TRACK 
ADDRESS IN RMDA, THE TEST FORCES AN EBL AND VERIFIES THAT OFFSET 
MODE RESETS. 
PROBABLE FAULT: 


1. DS MODULE 


SET LSC TEST 
PURPOSE : 
TO VERIFY THAT ‘LOSS OF SYSTEM CLOCK’’ CAN SET AND RESET. 
PROCEDURE : 
wart BSLREM MPS LOE MA ESM H lle 
THE DEBUG CLOCK AND VERIFIES THAT LSC SETS. 
PROBABLE FAULT: 
1. CS MODULE 


2. IF MODULE 


DECODE TEST 
PURPOSE : 


TO VERIFY THAT THE ‘DECODE’’ FLOP ON THE IF MODULE SETS WITH 
we EDGE OF ‘’SET PULSE*’ EXCEPT WHEN ‘COMPOSITE ERROR*’ IS 


PROCEDURE : 


THE TEST USES ‘VOLUME VALID’’ AND ‘‘OCCUPPIED'* TO DETERMINE IF 
THE DECODE FLOP IS SET OR RESET. INITIALLY, VV AND OCCUPPIED ARE 
RESET AND THE TEST EXECUTES THOSE COMMANDS WHICH SET VV OR OCC 
AND VERIFIES THAT ONE OR BOTH BITS SET. THE SAME COMMANDS ARE 
EXECUTED AGAIN WITH COMPOSITE ERROR SET, AND THE TEST VERIFIES 
THAT NEITHER BIT SETS. 
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2480 
2481 PROBABLE FAULT: 


BSSSSSSSsssesssssssssss 


3 
3 
3 
3 
3 
3 


_ 2 2 od dd 
LLL LL 
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IF MODULE 


SET IAE TEST 
PURPOSE : 
TO VERIFY THAT INVALID ADDRESS ERROR CAN SET. 
PROCEDURE : 
THE TEST LOADS INVALID SECTOR, TRACK AND CYLINDER ADDRESSES 
AND EXECUTES A SEARCH COMMAND, VERIFYING THAT ‘‘IAE'' SETS. THE 
PROCESS IS REPEATED WITH A DIFFERENT oe. IF THE IAE DOES NOT 
SET, AND THE TEST FAILS IF IAE CANNOT BE SET 
PROBABLE FAULT: 
1. DS MODULE 


2. IF MODULE 


REQUEST TEST, PART 3/3 
PURPOSE : 


TO VERIFY THAT PORT REQUEST SETS WHEN ANY REGISTER EXCEPT 
RMAS IS WRITTEN. 


PROCEDURE : 


THE TEST WRITES THE DISK ADDRESS REGISTER AND VERIFIES THAT 
THE PORT REQUEST FLOP IS ON. 


PROBABLE FAULT: 
1. IF MODULE 
2. CS MODULE 
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WRITE ATA TEST 
PURPOSE : 


TO VERIFY THAT ATTENTION CAN BE CLEARED BY WRITING THE 
ATTENTION SUMMARY REGISTER. 


PROCEDURE : 

THE PROGRAM RESETS AND SETS UNIT READY WHICH SHOULD CAUSE AN 
ATTENTION, THEN WRITES THE ATTENTION SUMMARY REGISTER AND 
VERIFIES THAT ATTENTION IS RESET. 

PROBABLE FAULT: 
1. IF MODULE 


2. CS MODULE 


RESET ATA BY GO TEST 
PURPOSE : 


- mm, VERIFY THAT ATA RESETS WHEN GO IS ON AND COMPOSITE ERROR 


PROCEDURE : 

THE PROGRAM SETS MAINTENANCE UNIT READY WHICH SHOULD CAUSE 
AN ATTENTION. THEN, WITH DEBUG CLOCK ENABLED, GO IS SET, AND ATA 
SHOULD BE ZERO. 
PROBABLE FAULT: 


1. IF MODULE 


READY ATA TEST 
PURPOSE : 


TO VERIFY THAT ONE~ZERO AND ZERO-ONE TRANSITIONS OF UNIT 
READY SET ATTENTION. 
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2590 PROCEDURE : 
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2591 PAGE 48 
2594 THE TEST USES DIAGNOSTIC MODE TO FORCE BOTH TRANSITIONS OF 
444 UNIT READY AND VERIFIES THAT ATA SETS WITH EACH TRANSITION. 

2597 . PROBABLE FAULT: 

2599 1. IF MODULE 


2606 ERROR ATA TEST 
2608 4 PURPOSE : 


2609 
2610 TO VERIFY THAT ATTENTION SETS WHEN COMPOSITE ERROR OCCURS 
2611 WHILE GO IS OFF. 


2613 PROCEDURE : 


2615 THE PROGRAM CLEARS THE DEVICE AND SETS AN ERROR, THEN 
2616 VERIFIES ATA IS ON. 


2618 PROBABLE FAULT: 
2620 1. IF MODULE 


2627 REGISTER TRANSFER ATA TEST 

2630 TO VERIFY THAT ATTENTION SETS WHEN ANY REGISTER, EXCEPT FOR 

sor) RMAS AND RMCS, IS WRITTEN WHILE COMP ERROR IS SET. 

ty PROCEDURE : 

2635 THE PROGRAM FORCES AN ERROR THEN RESETS ATTENTION FROM THE 
36 ERROR. THE PROGRAM THEN WRITES RMAS AND RMCS AND VERIFIES THAT 

2637 NO ATTEN W OCCURS, AND WRITES RMDC AND VERIFIES THAT ATTENTION 

38 DOES OCCL... 

2640 PROBABLE FAULT: 


2642 1. IF MODULE 
2643 - 
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000200 
177776 
177774 
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;PROGRAM REVISION #001 


-TITLE CZRMJCO was DSKLS PRT 1 
3*COPYRIGHT (C) 1 

*DIGITAL EQUIPMENT CORP. 

s SMAYNARD , MASS. 01754 


! PROGRAM BY DOUG RIIKONEN 

‘THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
; *PACKAGE (MAINDEC-11=DZQAC-C3), JAN 19, 1977. 
é1N =1 

SSBTTL OPERATIONAL SWITCH SETTINGS 

SWITCH 

HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 
INHIBIT ITERATIONS 
BELL ON ERROR 


LOOP ON ERROR 
oe TEST IN SWR<7:0> 


Be Pe Be Se Be Be Be Be Be Be Be 


. ee Be Be he 
aepnen eR RRR RHEE 


SOM NWEUANWDOO-WERUN 


: TN1 
-SBTTL BASIC DEFINITIONS 


ca. ta OF THE STACK POINTER *** 1100 *** 
SEQUIV EMT ,ERROR ;;BASIC DEFINITION OF ERROR CALL 
-EQUIV IOT,SCOPE ;;BASIC DEFINITION OF SCOPE CALL 


3 *MISCELLANEOUS DEFINITIONS 
HT= 11 3;:CODE FOR HORIZONTAL TAB 
;:CODE FOR LINE FEED 
;;CODE FOR CARRIAGE RETURN 
;;CODE FOR CARRIAGE RETURN-LINE FEED 
3:PROCESSOR STATUS WORD 


23 STACK LIMIT REGISTER 
OGRAM INTERRUPT REQUEST REGISTER 
7 HARDWARE SWITCH REGISTER 
177570 3 sHARDWARE DISPLAY REGISTER 


;*GENERAL PURPOSE REGISTER DEFINITIONS 
RO= %0 ; GENERAL 


GENERAL REGISTER 





t afl aft off oft off oft oth aft oft atl alt aff oft ail alt alCalé oft oft ot Lali al lali ali aliailal 


oO 
MN 
z 
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000004 ;;GENERAL REGISTER 
000005 ;;GENERAL REGISTER 
000006 ;:GENERAL REGISTER 
; GENERAL REGISTER 
3:STACK POINTER 
3 PROGRAM COUNTER 


WW 


NOUSWN HO 


7sPRIORITY LEVEL 
3*" "SWITCH REGISTER’’ SWITCH DEFINITIONS 
SW15= 00000 


(AIAN WA Od Cd Ca Cad Ca Ca Cw Cd 
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000040 
000020 
000010 


000002 
000001 


“EQUIV BITOO,BITO 


: *BASIC **CPU'' TRAP VECTOR _ADDRESSES 
ME OUT AND OTHER ERRORS 
: RESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC=14 ss’. GST 
TRIVEC= 14 ; TRACE TRAP 
BPTVEC= 14 + BREAKPOINT TRAP (BPT) 
IOTVEC= 20 4) a he + tga TRAP (IOT) **SCOPE** 
PWRVEC= 24 3 POWER FAIL 
EMTVEC= 30 7 EMULATOR TRAP (EMT) **ERROR** 
;;''TRAP’* TRAP 


+: TTY KEYBOARD VECTOR 
sz TTY PRINTER VECTOR 
PIRQVEC=240 : PROGRAM INTERRUPT REQUEST VECTOR 
RMO3 REGISTER BIT DEFINITIONS 
CONTROL STATUS REGISTER 
;DEVICE AVAILABLE-READ ONLY 
‘FUNCTION CODE 
“FUNCTION CODE 
“FUNCTION CODE 
‘FUNCTION CODE 
SFUNCTION CODE 
GO BITOO G0 BIT 
FNCMSK 000077 “FUNCTION CODE MASK 
FUNCTION (BITS 01-05 OF RMCS1) 
| 000000 


NOP COMMAND 
ILLEGAL COMMAND 

K COMMAND 
‘RECALIBRATE COMMAND 
DRIVE CLEAR COMMAND 
;RELEASE COMMAND 
2 OFF SET COMMAND 
;RETURN TO CENTERLINE COMMAND 
[READ IN PRESET COMMAND 
000022 PACK ACKNOWLEDGE COMMAND 





WWW WWW WWW WWW WW WANN WW A AION AAA A A AAAI AA AANA AAA 
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PACACK 
: ILLEGAL COMMAND 


ILLEGAL COMMAND 
WRITE CHECK DATA COMMAND 
;WRITE CHECK HEADER AND DATA 
: ILLEGAL COMMAND 
LLEGAL COMMAND 
WRITE DATA COMMAND 
;WRITE HEADER AND DATA COMMAND 
S ILLEGAL COMMAND 
ILLEGAL C 
READ DATA COMMAND 
READ HEADER AND DATA COMMAND 
; ILLEGAL COMMAND 
000076 ILLEGAL COMMAND 


DISK ADDRESS REGISTER 


pnnnhnnnnnnnnnnn nb nn nnn 


; TRACK ADDRESS 4 
; TRACK ADDRESS 2 
; TRACK ADDRESS 1 
SECTOR ADDRESS 16 


“SECTOR ADDRESS 1 
3 TRACK,SECTOR MASKS 


003400 TADMSK 003400 ; TRACK ADDRESS MASK 
SADMSK 000037 SECTOR ADDRESS MASK 


DRIVE STATUS REGISTER 


sATTENTION ACTIVE 
COMPOSITE ERROR 
;POSITIONING IN PROGRESS 
MEDIUM ON LINE 

sWRITE LOCK 

;LAST BLOCK TRANSFERRED 
; PROGRAMMABLE 


;DRIVE PRESENT 
:DRIVE et 

; VOLUME VALID 
OFFSET MODE ACTIVE 


WAWWAWW AWWW WWWWAWW WWW AAW WA A A AA A 


ERROR REGISTER #1 
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;DATA_ CHECK ERROR 
DRIVE UNSAFE 

OPERATION INCOMPLETE 

;DRIVE TIMING ERROR 

[WRITE LOCK ERROR 

S INVALID ADDRESS ERROR 
ADDRESS OVERFLOW ERROR 
s;HEADER CRC ERROR 

sHEADER COMPARE ERROR 

;ECC ‘HARD’ ERROR 

WRITE CLOCK FAILURE 

FORMAT ERROR 

SPARITY ERROR 

:REGISTER MODIFICATION REFUSED 
; ILLEGAL REGISTER 

S ILLEGAL FUNCTION 


ND TMSK DCK!DTE!WLE!AOE!HCRC!HCE!ECH! WCF IFER 
| NDTMSK"! IS USED TO MASK ERROR REGISTER 1 DURING NON = DATA 
; COMMANDS, I.£., HOUSEKEEPING AND POSITIONING COMMANDS 
ATTENTION SUMMARY REGISTER 
377 MASK FOR ATTENTION BITS 


LOOK AHEAD REGISTER 


;SECTOR COUNT 
SECTOR COUNT 
SECTOR COUNT 
SECTOR COUNT 
SECTOR COUNT 


003700 SECTOR COUNT 
MAINTENANCE REGISTER 
WRITE ONLY BITS 


= BIT15 ;DEBUG CLOCK 
= BIT14 ;DEBUG CLOCK ENABLE 


000200 
000100 
003700 





G 6 
CZRMJCO RMO3/2 DSKLS PRT 1 MACY11 30A(1052) 21-AUG-78 09:22 PAGE 71 SEQ 0071 
| CZRMJC.P11 21-AUG=78 09:19 RMO3 REGISTER BIT DEFINITIONS 


DIAGNOSTIC END OF BLOCK 
;DIAGNOSTIC TIMEOUT 
MAINTENANCE CLOCK 
sREAD DATA 

:UNIT READY 


7 SEEK 

:DRIVE FAULT 
SECTOR PULSE 
[WRITE PROTECT 

; INDEX PULSE 
SECTOR COMPARE 
:DIAGNOSTIC MODE 


hho ag 

UN AND GO 
SEND OF BLOCK 
TEXCE 


[LOOKING FOR SYNC 
ENABLE CRC OUT 
DATA AREA 
HEADER AREA 


TINUE 
z:WORD CLOCK 
ENABLE ECC OUT 
[WRITE DATA BIT 
LAST SECTOR 
LAST SECTOR AND TRACK 
DIAGNOSTIC MODE 


NOT SECTOR ADDRESSED=0 
TAPE DRIVE = 0 


;MOVING HEAD = 1 
:DRIVE REQUEST REQUIRED 


020024 ;SINGLE PORT DRIVE TYPE 
024024 ;DUAL PORT DRIVE TYPE 


OFFSET REGISTER 


020024 
024024 


316 BIT WORD FORMAT 
ECC INHIBIT 
[HEADER COMPARE INHIBIT 
OFFSET FORWARD 

161577 [UNUSED BITS OF RMOF 


010000 
004000 
002000 
000200 
161577 


; RMDC DESIRED CYLINDER ADDRESS REGISTER 
001777 1777 MASK FOR CYLINDER ADDRESS 
176000 ~ 176000 UNUSED BITS OF RMDC 
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RMO3 


MAINTENANCE REGISTER #2 
READ ONLY hh 
BIT15 


rninnnnhnn nit tnt na 
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;PORT A REQUEST 

;PORT B REQUEST 

; TAG CONTROL 

; COMMAND SEQUENCE TEST BIT 
CONTROL OR CYLINDER TAG 
CONTROL OR HEAD TAG 


INVALID COMMAND ERROR 


[LOSS OF SYSTEM CLOCK 


:LOSS OF BIT CLOCK 


[UNUSED BITS OF RMER2 


;MANUFACTURING DETECTED SECTOR ERROR 
;USER DETECTED SECTOR ERROR 


RMO3 REGISTER INDEX VALUES 


:CONTROL STATUS REGISTER 
DISK ADDRESS REGISTER 
:DRIVE STATUS REGISTER 
;ERROR REGISTER 1 


ATTENTION SUMMARY REGISTER 
;LOOK AHEAD REGISTER 
:MAINTENANCE REGISTER 

: DRIVE TYPE REGISTER 

; SERIAL NUMBER REGISTER 
‘OFFSET T 


REGISTER 
DESIRED CYLINDER REGISTER 
;HOLDING REGISTER 

MAINTENANCE REGISTER 2 
“ERROR REGISTER 2 


ZECC POSITION REGISTER 
ECC PATTERN REGISTER 


36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
3€ 
36 
36 
3€ 
36 
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ILRGSO : ILLEGAL REGISTER 
REGISTER 


REGISTER 
REGISTER 
: REGISTER 
TILLEGAL REGISTER 


ILRG76 


IDXMSK = MASK FOR REGISTER INDEX NUMBER 
.SBTTL RH CONTROLLER REGISTER BIT DEFINITIONS 
CONTROL STATUS REGISTER #1 


SPECIAL CONDITION-READ ONLY 
; TRANSFER ERROR 

;MASSBUS CONTROL BUS PARITY 
sERROR-READ ONLY 

PORT B SELECT 

sADDRESS EXTENSION 

ADDRESS EXTENSION 
;READY-READ ONLY 

; INTERRUPT ENABLE 


RH CONTROL STATUS REGISTER #2 


DATA LATE-READ ONLY 

;WRITE CHECK ERROR-READ ONLY 
;UNIBUS PARITY ERROR 
;NONEXISTANT DRIVE-READ ONLY 
;NONEXISTANT MEMORY-READ ONLY 
PROGRAM ERROR-READ ONLY 
;MISSED TRANSFER 

:MASSBUS DATA BUS PARITY 
s;ERROR-READ ONLY 

;OUTPUT READY-READ ONLY 

; INPUT READY-READ ONLY 
;CONTROLLER CLEAR 

:PARITY TEST 

IeIT ADDRESS INCREMENT 


[UNIT SELECT 
UNIT SELECT 
[UNIT SELECT 


UNIT SELECT MASK 
UNTMSK = 7 UNIT SELECT MASK 


;RMCS3 id CONTROL STATUS REGISTER #3 
APE BIT15 ADDRESS PARITY ERROR 


3% 
36' 
36' 
36 
36' 
36' 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
36 
37 
37 
37 
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DATA PARITY ERROR HIGH WORD 
;DATA_PARITY ERROR LOW WORD 
WRITE CHECK ERROR HIGH WORD 
;WRITE CHECK ERROR LOW WORD 
;DOUBLE WORD TRANSFER 
INTERRUPT ENABLE 
; INVERT PARITY CHECK 
SINVERT PARITY CHECK 
; INVERT PARITY CHECK 
BIT00 ; INVERT PARITY CHECK 
H CONTROLLER REGISTER INDEX VALUES 


; CONTROL , ty REGISTER 
; WORD T REGISTER 


C E 
7BUS ADDRESS REGISTER 
;CONTROLLER STATUS REGISTER 
[DATA BUFFER 
BUS ADDRESS EXTENSION 
CONTROL STATUS REGISTER #3 


176700 ;UNIBUS ADDRESS 
120254 ;UNIBUS VECTOR ADDRESS AND PRIORITY 


ABASE 
120254 AVECT1 
-SBTTL TRAP CATCHER 


-=0 
3*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.+2,HALT"’ 
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
Deiaeaaaae~" e. CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: one 0 = SOFTWARE DISPLAY REGISTER 
SWREG: WORD 0 SOFTWARE SWITCH REGISTER 
.SBITL ACT11 HOOKS 


DISS ISISIOISIOISIOISIOISIOISIDIDIDIIOIIOIUIOIOIOIOIOI IOI IOI TOT TOT TOT TOR TOT TOT TOT TOT TOT TT AA 
;HOOKS REQUIRED BY ACT11 
S$SVPC=. SAVE PC 


WWWWNAWAWWWw 
ee ee ed ed ed ed 
ee ee ed ed nd sd 
WOWNAULSWH-O 


-=46 
—_ 321)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 


-WORD 0 2i2)SET LOC. Pe TO ZERO 
-=$SVPC 3: RESTORE P 


-SBTTL STARTING ADDRESS 
;THE PROGRAM STAD AT LOCATION 200 
JMP START ; JUMP TO START OF PROGRAM 


-=1100 
-SBTTL APT PARAMETER BLOCK 


LR REE EEE EERE RRR EERE REE EERE EEE RRR R ERA RE 
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;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
TDR EERIE ISIC IIIS TOSI IIDIDIOIIIDIOIIIUIUIOIIIDIOIIUIDIOIUIDIDDIOIIODIINIOD 
33SAVE CURRENT LOCATION 
3:SET POWER FAIL TO POINT TO START OF PROGRAM 
33FOR APT START UP 
;3POINT TO APT INDIRECT ADDRESS PNTR. 
3zPOINT TO APT HEADER BLOCK 
;sRESET LOCATION COUNTER 
DSSS SAIS ISIDISI IOC ISISISISIDIIIOIOIIIIOIIIDISIUIOITIOIOIOIUIDIOIIOIOITIOIOIIIO IIIT 
SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 


SAPTHD: 

SHIBTS: Dp Oo ;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

SMBADR: . SMAIL : TADDRESS OF APT MAILBOX (BITS 0-15) 

SYSim « 1 RUN TIM OF LONGEST TEST 

SPASTM: . 2 es TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
SUNITM: D 2 ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
season aah -$MAIL/2 7 LENGTH MAILBOX-E TABLE (WORDS) 


381 
38 
38 
38) 
38 
38 
38) 
38 
38) 
38) 
38 
38 
38 
38 
38 
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-SBTTL COMMON TAGS 


SRR 


TRTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
:*USED IN THE PROGRAM. 


SCMTAG: 3=START OF COMMON TAGS 


;;CONTAINS THE TEST NUMBER 
ERROR FLAG 
SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 
SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 
ha CONTROL BYTE 
ERRORS PER TEST 
PC. OF LAST ERROR rt tenes 
ADDRESS OF ‘GOOD" DATA 
ADDRESS er. *BAD' DATA 
GOOD" D 


ONTAINS DATA. 
+ JRESERVED--NOT TO BE USED 


3 sAUTOMATIC MODE INDICATOR 
32 INTERRUPT MODE INDICATOR 


;zADDRESS OF SWITCH REGISTER 
;sADDRESS OF DISPLAY REGISTER 
eeTTy KBD STATUS 
TTY KBD BUFFER 
eTty PRINTER STATUS REG. ADDRESS 
TTY PRINTER BUFFER REG. ADDRESS 


8888888883389 


loleleleleleleleleoler leolelelelelelola) 


DSWR 
DDISP 


Nm 


SHINSERT FILL CHARS. TE INE F 
:''TERMINAL AVAILABLE’’ FLAG (BIT<07>=0=YES) 
: SUSER DEF INED 
sUSER DEFINED 
USER DEF INED 
; USER DEFINED 
ho DEF INED 
NUMBER OF ITERATIONS 
+: ESCAPE ON ERROR ADDRESS 
<207><377><377> : sCODE FOR BELL 
/?/ +: QUESTION MARK 
7; CARRIAGE RETURN 
>;LINE FEED 


LL RARER EERERE EERE ERE EEEEEREREERR ERE 


-SBTTL APT MAILBOX-ETABLE 


anti itatntiticianinciy iiarinncinchin tnd inteiianieatairiinrinia 


“LIST ME 


tetetetepprpppteteitetteit rt it tre et ttt tetetetetetetedetdetdetedetet etc 
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3211 -EVEN 

3212 001222 SMAIL: ; ;;APT MAILBOX 

3213 001222 000000 SMSGTY: .WORD AMSGTY ;;MESSAGE TYPE CODE 

3214 001224 000000 SFATAL: .WORD FATAL ;;FATAL ERROR NUMBER 

3215 001226 000000 STESTN: .WORD ATESTN ;;TEST NUMBER 

3216 000000 «WORD APASS  ;;PASS COUNT 

ssif 001232 000000 SDEVCT: .WORD ADEVCT ;;DEVICE COUNT 

3218 001234 000000 SUNIT: .WORD AUNIT ;;1/0 UNIT NUMBER 

3219 001236 000000 SMSGAD: .WORD AMSGAD ;;MESSAGE ADDRESS 

3220 001240 000000 SMSGLG: .WORD AMSGLG ;;MESSAGE LENGTH 

3221 001242 SE TABLE: : APT ENVIRONMENT TABLE 

3222 001242 000 SENV: .BYTE AENV : ENVIRONMENT BYTE 

3223 001243 000 SENVM: .BYTE AENVM ;;ENVIRONMENT MODE BITS 

3224 001244 000000 SSWREG: .WORD ASWREG ;:APT SWITCH REGISTER 

3225 001246 000000 SUSWR: .WORD AUSWR is USER SWITCHES 

26 001250 000000 $SCPUOP: .WORD ACPUOP ;;CPU TYPE,OPTIONS 

3227 :* BITS 15-11=CPU TYPE 

3228 :* 11/04=01, 11/05= 02,11/20=03,11/40=04,11/45=05 

3229 :* 11/70=06 ,PDQ=07 ,Q=10 

3230 se BIT 10=REAL_ TIME CLOCK 

3231 :* BIT 9=FLOATING POINT PROCESSOR 

3232 s* BIT 8=MEMORY MANAGEMENT 

3233 001252 000 SMAMS1: .BYTE AMAMS1 ; ; sHIGH ADDRESS ,.M.S. BYTE 

3234 001253 000 SMTYP1: .BYTE AMTYP1 ::MEM. TYPE,BLKA1 

3235 3* hem. TYPE BYTE =~ (HIGH BYTE) 

3236 sf 900 NSEC CORE=001 

3237 s* 300 NSEC BIPOLAR=002 

3238 s@ 500 NS ve 

3239 001254 000000 $MADR1: .WORD AMADR1 ;;HIGH ADDRESS .BLKA# 

3240 3° MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF ‘'TYPE'’ ABOVE 

3241 601256 000 SMAMS2: .BYTE AMAMS2 ;;HIGH ADDRESS.M.S. BYTE 

3242 001257 000 SMTYP2: .BYTE AMTYP2 ::MEM.TYPE,BLKA2 

3243 001260 000000 SMADR2: .WORD AMADR2 ;;MEM.LAST ADDRESS,BLK#2 

3244 001262 000 SMAMS3: .BYTE AMAMS3 ;;HIGH sy ty t M.S.BYTE 

3245 001263 000 SMTYP3: .BYTE AMTYP3 ; ; ¢MEM. -BLKA3 

3246 001264 000000 SMADR3: .WORD AMADR3 ;:MEM. LAST ADDRESS ,BLK#3 

3247 001266 000 SMAMS4: .BYTE AMAMS4 ;:HIGH ADDRESS.M.S.BYTE 

3248 001267 000 SMTYP4: .BYTE AMTYP4 ;;MEM.TYPE .BLKA4 

3249 001270 000000 SMADR4: .WORD AMADR4 : ;;MEM.LAST ADDRESS ,BLKA4 

3250 001272 120254 S$VECT1: WORD AVECT1 :: INTERRUPT VECTOR#1,BUS PRIORITYA1 

3251 001274 000000 SVECT2: .WORD AVECT2 3: INTERRUPT VECTORW2BUS PRIORITY#2 

3252 001276 176700 $BASE: .WORD ABASE ;;BASE “ge OF EQUIPMENT UNDER TEST 

3253 001300 000000 SDEVM: .WORD ADEVM : ; DEVICE MAP 
001302 000000 $CDW1: .WORD ACDWI ;;CONTROLLER DESCRIPTION WORDA1 

3255 000000 $CDW2: .WORD ACDW2 ; ; s CONTROLLER DESCRIPTION WORD#2 
001306 000000 WORD ADDWO ;;DEVICE DESCRIPTOR WORDAO 

3257 001310 000000 $DDW1: .WORD ADDW1 ;;DEVICE DESCRIPTOR WORDA1 

3258 12 000000 $DDW2: .WORD ADDW2 ;;DEVICE DESCRIPTOR WORD#2 

3259 001314 000000 $DDW3: .WORD ADDWS ;;DEVICE DESCRIPTOR WORD#S 
001316 000000 SDDW4: .WORD ADDW4 ;;DEVICE DESCRIPTOR WORD#4 

3261 000000 $DDW5: .WORD ADDWS ;;DEVICE DESCRIPTOR WORDAS 

3262 001322 000000 $DDW6: .WORD ADDW6 : ;;DEVICE DESCRIPTOR WORD#6 

3263 001324 000000 $DDW7: .WORD ADDW7 ;;DEVICE DESCRIPTOR WORD#7 

$508 001326 SETEND 
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-SBTTL REGISTER INPUT BUFFER 


THE REGISTER INPUT fore IS aie he STORING REGISTER 
= CONTENTS AS THEY ARE READ FROM THE DEV 


RMCS1I: .WORD ;CONTROL,STATUS REGISTER #1 
RMWCI: .WORD ;WORD COUNT REGISTER 


: D 

*DISK ADDRESS REGISTER 
[CONTROL, STATUS REGISTER #2 
“DRIVE STATUS REGISTER 


ER 1 
SUMMARY REGISTER 
AD REGISTER 


;MAINTENANCE REGISTER #1 
zDRIVE TYPE REGISTER 


EGISTER 
[DESIRED CYLINDER REGISTER 
SHOLDING REGISTER 
MAINTENANCE REGISTER #2 
sERROR REGISTER 2 
2ECC ay ty REGISTER 
sECC PATTERN REGISTER 
;BUS ADDRESS EXTENSION REGISTER 
CONTROL, STATUS REGISTER #3 


REGISTER OUTPUT BUFFER 


THE REGISTER OUTPUT BUFFER IS USED FOR ASSEMBLING DATA TO 
“BE WRITTEN TO THE DEVICE. 
RMCS10: - WORD ;CONTROL,STATUS REGISTER #1 
CO: .WORD ;WORD COUNT REGISTER 
BUS ADDRESS REGISTER 
:DISK ADDRESS REGISTER 
ONTROL, STATUS REGISTER #2 
:DRIVE STATUS REGISTER 
Z ERROR REGISTER 1 
TTENTION SUMMARY REGISTER 
‘TOOK AHEAD REGISTER 
;DATA_BUFFER 
;MAINTENANCE REGISTER #1 
DRIVE TYPE REGISTER 
7SERIAL NUMBER REGISTER 
SOFFSET REGISTER 
:DESIRED CYLINDER REGISTER 
;HOLDING REGISTER 
_ gMAINTENANCE ee #2 
: ERROR REGISTER 2 
RMECTO: .WORD SECC POSITION REGISTER 
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CZRMJC.P11 21-AUG-78 09:19 REGISTER OUTPUT BUFFE 


;ECC PATTERN REGISTER 
;BUS ADDRESS EXTENSION REGISTER 
;CONTROL, STATUS REGISTER #3 


-SBTTL TEST QUE 


EACH WORD OF THE TEST QUE CONTAINS THE DEVICE NUMBER IN 
"THE LOW BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. A ZERO 
:WORD IS A BLANK AND REPRESENTS THE END OF THE QUE. 


000012 TSTQUE : 10. TEST QUE 


172540 $SLPCSR: 172540 3KW11-P CONTROL + iad REGISTER 
172542 SLPCSB: 172542 :KW11-P COUNT SET BUFFER 
000104 SLPVEC: 104 ;KW11-P INTERRUPT VECTOR 


106 

$LLCSR: 177546 ;KW11=-L CONTROL + STATUS REGISTER 

$LLVEC: ino ;KW11-L INTERRUPT VECTOR 

$PSW: STORAGE FOR PRIORITY 

° STORAGE FOR ELAPSED TIME 

STORAGE FOR REMAINING TIME 
ADDRESS OF START CLOCK SUB 
ADDRESS OF STOP CLOCK SUB 





PUT TAGS HERE 


4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
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CZRMJC.P11 


001532 


21-AUG-78 09:1 OR POINTER TABLE 
-SBTTL ERROR POINTER TABLE 


3*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

7*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

*LOCATION S$ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
*NOTE1: IF $ITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 

‘ #NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


7;POINTS TO THE ERROR MESSAGE 
3;POINTS TO THE DATA HEADER 
;sPOINTS TO THE DATA 

3:POINTS TO THE DATA FORMAT 


$SERRTB: 


4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
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; ERROR CANNOT CLEAR NED STATUS 4( 


CANNOT READ OR WRITE ANY DEVICE REG WITHOUT NED 4) 


074602 4) 


CANNOT WRITE/READ ONES TO ANY DEVICE REGISTER 4) 


CANNOT CLEAR ANY DEVICE REGISTER BITS W/MASSBUS INIT 


CANNOT WRITE/READ ZEROS TO ALL BIT POSITIONS 


CANNOT WRITE/READ ONES TO ALL BIT POSITIONS 


CANNOT WRITE/READ SHIFTING ONE BIT TO ALL BIT POSITIONS 
OF DEVICE REGISTERS 


SEES 
WO VRE W 


N 
oS 
PELDADADRALAHAA SHAD HAHAHA HHLAHHLHHHHHHHHALD 


Wy 
se 
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21-AUG-78 09:19 


. 
MACY11 30A(1052) 21-AUG-78 09:22 PAGE 82 
ERROR POINTER TABLE 


; ERROR 


10 
EMT10 
0 


0 
0 


REGISTER SELECT 1 APPEARS 


REGISTER SELECT 1 APPEARS 


REGISTER SELECT 2 APPEARS 


REGISTER SELECT 2 APPEARS 


REGISTER SELECT 4 APPEARS 


REGISTER SELECT 4 APPEARS 


REGISTER SELECT 8 APPEARS 


SEQ 0082 
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074600 


a 
MACY11 30A(1052) 21-AUG-78 09:22 PAGE 83 
ERROR POINTER TABLE 


ERROR 


17 
EMT17 
0 


REGISTER SELECT 8 APPEARS S-A-1 


CANT WRITE ZEROS RMDA 


CANT WRITE ONES RMDA 


BIT INTERFERENCE IN WRITING/READING RMDA 


CANT WRITE ZEROS RMCS1 


CANT WRITE ONES RMCS1 


BIT INTERFERENCE IN WRITING/READING RMCS1 


SEQ 0083 





Se. 
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CZRMJC.P11 21-AUG-78 09:19 ERROR PUINTER TABLE 


ERROR 26 MBA CLR L IS STUCK ACTIVE 
EMT 26 
0 


CANNOT CLEAR RMER1-PAR,RMR,ILF,ILR 


CANNOT CLEAR RMER1-DCK,IAE,AOE,HCRC,HCE.ECH, WCF FER 


CANNOT CLEAR RMER1-OPI ,DTE 


074600 


CANNOT WRITE 0 IN RMER1-PAR,RMR,ILF,ILR 
067372 
074456 


074552 
074600 


CANNOT WRITE 0 IN RMERI=DCK,IAE,AOE,HCRC HCE .ECH, WCF FER 


CANNOT WRITE 0 IN RMER1-OP] ,DTE 
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21-AUG-78 09:19 


074600 


067472 
074456 
074552 
074600 


H 7 
MACY11 30A(1052) 21-AUG-78 09:22 PAGE 85 
ERROR POINTER TABLE 


s ERROR 


CANNOT WRITE 1 IN RMER1 


CANNOT WRITE SHIFTING 1 IN RMER1 


CANNOT WRITE ZEROS IN RMDC 


CANNOT WRITE ONES IN RMDC 


BIT INTERFERENCE IN WRITING/READING RMDC 


CANNOT WRITE 1°S IN RMDC OR RMDA 


CANNOT CLEAR RMCS1-FUNCTION CODE 


SEQ 0085 





BR, 
CZRMJCO RMO3/2 DSKLS PRT 1 MACY11 30A(1052) 21-AUG-78 09:22 PAGE 86 SEQ 0086 
CZRMJC.P11 21-AUG-78 09:19 ERROR POINTER TABLE 


3647 
3648 
gts ERROR 44 UNUSED BITS OF RMER2 NOT ZERO 
3651 002162 067600 EMT44 
3652 002164 074456 EHT1 
3653 002166 074552 EDT1 
3654 002170 074600 EFT 
3655 
3656 
4 zERROR 45 CANNOT CLEAR RMER2-OPE,IVC.LSC 
3659 002172 067614 EMT45 
002174 074456 EHT1 
3661 002176 074552 EDT1 
3662 002200 074600 EFT1 
3663 
3664 
3665 ERROR 46 CANNOT CLEAR RMER2-LBC ,DPE 
3667 002202 067630 EMT46 
002204 074456 EHT1 
3669 06 074552 EDT1 
3670 002210 074600 EFT1 
3671 
3672 
ang ERROR 47 CANNOT WRITE ZEROS RMER2-OPE,IVC,LSC 
3675 002212 7 EMT47 
3676 002214 074456 EHT1 
3677 002216 074552 EDT1 
3678 002220 074600 EFT1 
3679 
3680 
3681 ERROR 50 CANNOT WRITE ZEROS RMER2-LRC,DPE 
3683 002222 067 EMT50 
002224 074456 EHT1 
3685 002226 074552 EDT1 
3686 002230 074600 EFT1 
3687 
3688 
344 ERROR 51 CANNOT WRITE ONES RMER2 
3691 002232 067710 EMT51 
3692 002234 074456 EHT1 
3693 002236 074552 EDT1 
3694 002240 074600 EFT1 
3695 
3696 
408 ERROR 52 CANNOT WRITE SHIFTING ONES RMER2 
3699 002242 067730 EMTS2 
002244 074456 EHT1 
3701 002246 074552 EDT1 
3702 002250 074 EFT1 
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i 7 
MACY11 30A(1052) 21-AUG-78 09:22 PAGE 87 
ERROR POINTER TABLE 


ERROR UNUSED BITS OF RMOF ARE NOT ZERO 


WRITE ZEROS RMOF-FMT,ECI,HCI,OFD 


WRITE ONES RMOF-FMT,ECI,HCI,OFD 


WRITE SHIFTING ONES RMOF 


DEVICE IS NOT AN RMO3 


DEVICE AVAILABLE IS NOT SET 


WRITE ZEROS RMHR 


SEQ 0087 
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CZRMJC.P11 21-AUG-78 09:19 ERROR POINTER TABLE 


; ERROR CANNOT WRITE ONES RMHR 


CANNOT WRITE SHIFTING ONES RMHR 
070124 


CANNOT CLEAR ILR STATUS 


ILR ERROR SHOULD NOT BE SET 


074610 


ILR ERROR SHOULD BE SET 
070166 
074502 
074562 
074610 
CANNOT CLEAR PAR STATUS=DPE IS RESET 


070202 


CANNOT CLEAR PAR AND DPE STATUS 
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CZRMJC.P11 


21-AUG-78 09:19 


070240 


074612 


070310 


074612 


070330 
074512 
074566 
074614 


070352 
074456 


ee 
MACY11 30A(1052) 21-AUG-78 09:22 PAGE 89 
ERROR POINTER TABLE 


ERROR 


"'PAR'' ERROR SHOULD NOT BE SET-"PAT’’ IS OFF 


"'PAR’’ ERROR SHOULD BE SET~"PAT’’ IS ON 


"MCPE'' ERROR SHOULD NOT BE SET 


UNEXPECTED BUS TIMEOUT 


CANT CLEAR *DMD"’ 


CANT WRITE ZERO *'DMD"' 


CANT WRITE ONE *DMD"' 


SEQ 0089 
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CZRMJC.P11 21-AUG-78 09:19 


070526 
074456 
074552 
074600 
070546 


074610 
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ERROR POINTER TABLE 


sERROR 100 DMD SET BY WRONG BIT 


EMT 100 


CANT CLEAR *MOL’’ IN DIAGNOSTIC MODE 


CANT SET 'MOL"’ IN DIAGNOSTIC MODE 


"MUR" SET BY WRONG BIT 


EMT 103 
EHT71 
EDT65 


CANT RESET ‘WRL'' IN DIAGNOSTIC MODE 


CANT SET *WRL** IN DIAGNOSTIC MODE 


"MwP’’ SET BY WRONG BIT 


CZRMJCO RMO3/2_DSKLS PRT 1 


CZRMJC.P11 


21-AUG-78 09:1 


070572 


070720 
074456 
074552 
074600 
070742 


074616 
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MACY11 yoy + tt, 09: 23 PAGE 91 
OR POINTER T 


zERROR 107 CANT RESET ‘DVC'’ USING ‘MDVC"’ 


EMT107 


"DVC'' IS RESET BUT ‘UNS"’ IS SET 


S SET BUT ‘UNS’ IS NOT SET 


CANT SET ‘DVC** USING MDVC"* 


*DVC'' IS RESET BUT "UNS" IS SET 


S SET BUT ‘'UNS'' IS NOT SET 


SET BY WRONG BIT 


B 8 
CZRMJCO_RMO3/2 DSKLS PRT 1 MACY11 "on be 21-AUG-78 09:22 PAGE 92 
CZRMJC.P11 21-AUG-78 09:1 RROR POINTER TABLE 


sERROR 116 CANT RESET ‘‘SKI"’ USING ‘MSER"’ 
EMT116 


CANT SET ‘'SKI'' USING ‘MSER"’ 


"“SKI'’ SET BY WRONG BIT 
074616 


CANT RESET ‘PIP'' USING *MOC"' 
071052 


CANT SET ‘'PIP’' USING ‘™MOC"' 
074600 


"MOC’’ SET BY WRONG BIT 
071112 


; ERROR CANT CLEAR ‘EBL** 


4 
4 
4 
4 
4 
4 
4 
& 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
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071154 


074600 


071212 


074616 


071236 


074620 


071254 


074620 


071272 


074622 


071312 
074526 
074574 
074622 


MACY11 30A(1052) 


; ERROR 


¢ 8 
21-AUG-78 09:22 PAGE 93 
ERROR POINTER TABLE 


EFT130 


131 
EMT131 


EFT130 


132 
EMT132 


EFT132 


133 
EMT 133 


EFT132 


"“EBL’* NOT ZERO IN DIAGNOSTIC MODE 


CANT SET ''EBL'’ USING *DEBL"’ 


"DEBL'' SET BY WRONG BIT 


"LS'' NOT CORRECT ACCORDING TO RMDA 


“LST'' NOT CORRECT ACCORDING TO RMDA 


CANNOT INCREMENT SECTOR ADDRESS USING *DEBL"’ 


CANNOT INCREMENT TRACK ADDRESS USING *DEBL"’ 


SEQ 0093 


SHHKHHHHHHLHHHLHHLHLLLLHSLLLLSLLSSSSSSSES. 


HHHHHHHHHHLHHHHL HLS 
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071332 


074622 


071434 


074600 


071450 


074600 


dD 8 
MACY11 ar he con tame 09:22 PAGE 94 


RROR POINTER T 


sERROR 134 


EFT132 


141 
EMT141 


AB 


UNUSED BITS OF RMDC NOT ZERO 


"vv"" NOT RESET BY UNIT READY 


SERIAL NUMBER IS INCONSISTENT 


CANT CLEAR ‘'GO’’ BIT 


CANT INCREMENT CYLINDER USING ‘DEBL"’ 


CANT RESET ‘LBT'' BY WRITING RMDA 


CANT SET ‘‘LBT’ USING *DEBL"* 
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071466 


074600 


071524 


074620 


071546 


074600 


071564 


074616 


071620 
074456 
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ERROR POINTER TABLE 


;ERROR CANT READ ZERO FROM COMP ERROR 


CANT SET COMP ERROR WITH RMER1 OR RMER2 


COMP ERROR DID NOT SET 


EFT130 


146 CANT SET *'GO"’ BIT 


EMT 146 


CANT READ A ONE FROM ‘'TST"’ 


“"TST’’ IS INCORRECT FOR THE FUNCTION CODE 


CANT SET THE *'GO'’ BIT 


F 8 
CZRMJCO RMO3/2_ DSKLS PRT 1 MACY11 30A(1052) 21=AUG-78 09:22 PAGE 96 
CZRMJC.P11 21-AUG-78 09:19 ERROR POINTER TABLE 


; ERROR "DRY'' NOT THE COMPLEMENT OF ‘'GO"’ 


071632 
074456 
074552 
074600 


""GO"" RESET EARLY 
071646 
074456 


074552 
074600 


""GO'' DIDNT RESET ON TIME 


CANT CLEAR CONTINUE 


CONTINUE IS INCORRECT FOR THE FUNCTION CODE 


071724 


074616 


ERROR CANT CLEAR IVC 
071746 


074600 


; ERROR IVC IS INCORRECT FOR THE FUNCTION CODE 


071764 EMT 160 
074536 EHT150 
074570 EDT115 
074616 EFT115 
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CZRMJC.P11 21-AUG-78 09:19 ERROR POINTER TABLE 


ERROR 161 CANT CLEAR LSC 


072014 


CANT SET LSC 


074600 


COMMAND DECODE WAS ENABLED WITH COMP ERROR SET 
072050 


COMMAND DECODE WAS ENABLED WITH COMP ERROR SET 
072072 
074456 


074552 
074600 


DECODE DOES NOT SET 
072114 


CANT CLEAR OCCUPIED 


ILF SET WITHOUT GO BIT 


072160 
074456 
074552 
074600 
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072202 


074616 


072214 


074616 


072230 
074600 
072246 
074536 


074570 
074616 


072270 
000000 
000000 
000000 
072316 


074600 


072334 


H 8 
MACY11 30A(1052) 21-AUG-78 09:22 PAGE 98 
ERROR POINTER TABLE 


ERROR 


; ERROR 


170 
EMT170 
EHT150 


EDT115 
EFT115 


EFT115 


174 
EMT174 
0 


CANT SET VOLUME VALID 


ILF IS INCORRECT 


CANT SET OFFSET DIRECTION BIT 


OCCUPIED IS INCORRECT FOR FUNCTION CODE 


READ IN PRESET DIDNT CLEAR RMDA, RMDC OR RMOF 


READ IN PRESET DIDNT CLEAR RMOF 


READ IN PRESET DIDNT CLEAR RMDA 


SEQ 0098 
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sERROR 177 READ IN PRESET DIDNT CLEAR RMDC 


072352 


SET OFFSET MODE BY OFFSET COMMAND 


RESET OFFSET MODE BY RTC COMMAND 


RESET OFD BY RTC COMMAND 


072424 
074456 
074552 
074600 


RESET OM BY RMDC 


072442 
074456 
074552 
074600 


RESET OM BY EBL 


074600 


RUN AND GO NOT CORRECT FOR FUNCTION CODE 


072504 
074536 
074570 
074616 EFT115 
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CZRMJC.P11 21-AUG-78 09:19 ERROR POINTER TABLE 


sERROR 206 CANT SET IAE ERROR 
072524 
000000 
000000 
000000 


IAE IS INCORRECT FOR FUNCTION CODE 


072554 
074536 
074570 
074616 


IAE IS INCORRECT FOR RMDA 
072570 
074516 


074570 
074616 


IAE IS INCORRECT FOR RMDC 


074616 


51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 
51 


AIAIAIAIAIAIA IA IA). 3 3 3 3) = 


CANT SET AOE 


072624 
074456 


RMR SET WHEN WRITING RMAS OR RMCS 


074616 
CANT SET RMR 


072666 
074542 
074570 
074616 
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ERROR DRQ IS 0 AND PGM IS 1 


DVA IS NOT SET 


DPR IS NOT SET 


CANT SET PORT REQUEST BY READING RMCS1 


074624 EFT220 


221 CANT SET PORT REQUEST BY WRITING RMAS 
072766 EMT221 


EFT220 


222 CANT SET PORT REQUEST BY WRITING RMDA 
EMT222 


074624 EFT220 


223 CANT RESET PORT REQUEST BY RELEASE COMMAND 
073022 EMT 223 


074624 EFT220 
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CZRMJC.P11 21-AUG-78 09:19 ERROR POINTER TABLE 


ERROR CANT CLEAR ATA BY RMAS 


ATA IS RESET BUT RMAS NOT ZERO 


CANT RESET ATA BY GO 


ATA NOT SET BY UNIT READY 


ATA NOT SET BY UNIT READY 


ATA NOT SET BY COMP ERROR 


073154 
074456 


ATA SET/DID NOT SET — REGISTER WRITTEN 
WHILE COMP ERROR WAS S 


073170 EMT232 
074542 EHT213 
074570 EDT115 
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004050 074616 EFT115 


233 ATA NOT SET BY COMMAND SEQUENCER 
073212 EMT233 
074536 EHT150 
074570 EDT115 
074616 EFT115 
234 WLE INCORRECT ACCORDING TO FUNCTION CODE 
EMT 234 
EHT150 
EDT115 
074616 EFT115 
CANT CLEAR EXCEPTION 


073262 


CANT SET EXCEPTION 
EMT 236 
EHT115 


EDT115 
EFT115 


CANT CLEAR IVC 


CANT SET IVC 


074616 EFT115 


241 OPI] NOT SET DURING RECALIBRATE 


073400 pes 
074456 
074552 





CZRMJCO RMO3/2 DSKLS PRT 1 
CZRMJC.P11 21-AUG- 


004140 074600 


074600 


073572 


78 09:19 


MACY11 30A(1052) 


; ERROR 


8 
Ae pat 09: 2 PAGE 104 
ERROR POINTER TABLE 


EMT250 


RECALIBRATE DID NOT ABORT WHEN DRIVE FAULT SET 


OPI SHOULD HAVE SET BECAUSE ON CYLINDER NEVER 
DROPPED DURING RECALIBRATE 


ATA NOT SET DURING RECALIBRATE 


GO RESET EARLY DURING RECALIBRATE 


GO NOT RESET DURING RECALIBRATE 


INCORRECT TAG BUS DURING RECALIBRATE 


OPI SHOULD HAVE SET DURING SEEK BECAUSE UNIT 
READY DROPPED 


SEQ 0104 
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074456 
074552 
074600 
SEEK DID NOT ABORT WHEN DRIVE FAULT SET 
073616 
074456 


074552 
074600 


OPI SHOULD HAVE SET BECAUSE ON CYLINDER NEVER 
DROPPED DURING SEEK 


ATA NOT SET DURING SEEK 


GO RESET EARLY DURING SEEK 
073704 


GO DID NOT RESET DURING SEEK 
073722 
074456 


074552 
074600 


INCORRECT TAG BUS DURING SEEK 


073746 aes 


074600 


3: 
3: 
3: 
3: 
3: 
3: 
PS 
2. 
3: 
>. 
3: 
>. 
3: 
3. 
5 
Py 
>. 
3. 
P) 
P) 
5 
5 
5 
2. 
5. 
> 
5. 
5 
5. 
5 


OP] NOT SET DURING SEARCH 
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SEARCH DID NOT ABORT WHEN DRIVE FAULT SET 


OPI SHOULD HAVE SET BECAUSE ON CYLINDER NEVER 
DROPPED DURING SEARCH 


ATA NOT SET DURING SEARCH 


GO RESET EARLY DURING SEARCH 


GO DID NOT RESET DURING SEARCH 


074600 


SEARCH ENABLE DIDNT SET DURING SEARCH 


074140 
074456 
074552 
074600 


INCORRECT TAG BUS DURING SEARCH 
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074156 EMT 266 
EHT1 


OPI NOT SET BY SEARCH TIMEOUT 


074174 EMT 267 
074456 1 
074552 

074600 


OPI NOT SET DURING DATA COMMAND 


074210 
074456 


DATA COMMAND DID NOT ABORT WHEN DRIVE FAULT SET 


EBL RESET EARLY DURING DATA COMMAND 


074260 
074456 
074552 
074600 


CZRM 
CZRM 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 


EBL DIDNT RESET ON TIME DURING DATA COMMAND 
074276 


GO NOT RESET DURING DATA COMMAND 


074600 


RUN AND GO NOT SET DURING DATA COMMAND 
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074332 EMT275 


INCORRECT TAG BUS DURING DATA COMMAND 


OPI NOT SET DURING DATA COMMAND WHEN ON 
CYLINDER DIDNT DROP 


FEFFFFF 


DATA COMMAND DID NOT ABORT WHEN SEEK ERROR SET 


54 
54 
54 
54 
54 
54 


SEARCH NOT ENABLED DURING DATA COMMAND 


074440 
074456 
074552 
074600 


;PUT ERROR TABLE HERE 
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-SBTTL START OF PROGRAM 


START: 
; CLEAR <a FOR TEST EXECUTION 
RESET s INITIALIZE THE SYSTEM 


TLE INITIALIZE THE COMMON TAGS 
CLEAR THE COMMON TAGS (S$CMTAG) FIR 
ASCMTAG,R6 ; sFIRST LOCATION TO BE CLEARED 
(R6) + gp’ ;CLEAR MEMORY LOCATION 


#SWR,R6 ;;DON 
-~6 ;;LOOP BACK IF NO 
MOV #STACK, SP zz SETUP THE STACK POINTER 
sciatica A FEW VECTORS 
sae #$SCOPE ,AMIOTVEC ;;I0T s sieee FOR SCOPE ROUTINE 


EVEL 
HSE four VECTOR FOR ERROR ROUTINE 
#340, aMEMTVEC+2 ; eg, 


#STRAP , aATRAPVEC 1 TRAP VECTOR FOR TRAP CALLS 
#340, a#TRAPVEC+2;LEVEL 7 
#SPWRDN ,@APWRVEC ; ;POWER_ FAILURE VECTOR 
000026 #340, a#PWRVEC+2 7 sLEVEL Lf 
057162 SENDCT , SEOPCT SETUP END-OF-PROGRAM COUNTER 
STIMES >: INITIALIZE NUMBER OF ITERATIONS 
;zCLEAR THE ESCAPE ON ERROR ADDRESS 
001131 ;zALLOW ONE ERROR PER TEST 
001122 . eS ee THE LOOP ADDRESS FOR SCOPE 
012737 001124 MOV LPERR SETUP THE ERROR LOOP ADDRESS 
7:SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
7;EQUAL TO A ‘'-1"', SETUP FOR A SOFTWARE SWITCH REGISTER. 
013746 000004 MOV @WERRVEC,-(SP) ;;SAVE ERROR VECTOR 
000004 #64$,QMERRVEC ;;SET UP ERROR VECTOR 
001154 ADSWR , SWR fa dag a A HARDWARE SWICH REGISTER 
001156 #DDISP,DISPLAY ::AND A HARDWARE DISPLAY REGISTER 
177777 =174212 #-1,aSWR T:TRY TO REFERENCE HARDWARE SWR 
668" ; BRANCH IF NO TiMEOUT TRAP OCCURRED 
2 AND THE HARDWARE SWR IS NOT = -1 
65$ BRANCH IF NO TIMEOUT 
004754 : #65$, (SP) ::SET UP FOR TRAP RETURN 


000176 $ ASWREG , SWR Feo TO SOFTWARE SWR 
000174 #DISPREG,DISPLA 
012637 000004 3 (SP) +, @#ERRVEC ” | :RESTORE ERROR VECTOR 


005037 001230 $PASS :CLEAR PASS COUNT 

132737 000200 001243 MAPTSIZE,SENVM ZETEST USER SIZE UNDER APT 
001403 67$ 7YES,USE NON-APT SWITCH 
012737 001244 001154 AESWREG , SWR TINO,USE APT SWITCH REGISTER 


0°2746 000140 #PR3,-(SP) 7;PUT NEW PS ON STACK 
012746 005030 #68$,-(SP) 3zPUT NEW PC ON STACK 
000002 ;zPOP NEW PC AND PS 
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.SBTTL TYPE PROGRAM NAME 

3: TYPE THE NAME OF THE PROGRAM IF 5 Ina? PASS 
005227 177777 INC #~1 ;sFIRST TIME? 
001062 3 


69$ 
057324 000042 > cate 


a CH IF YES 
005114 TYPE ,70$ YPE ASCIZ STRING 
. GET VALUE FOR SOF TWARE suiTey REGISTER 
000042 TST ar42 sARE WE RUNNING UNDER XXDP/ACT? 
ms * BRANCH IF YES 
001242 000001 mm 7 sARE WE RUNNING UNDER APT? 


1$ CH IF YES 
001154 000176 SWR ,ASWREG 3 SOF TWARE SWITCH REG SELECTED? 
72$ CET $0 IF NO 
;GET SOFT-SWR SETTINGS 


000403 BR 72$ 
112737 000001 001150 718: #1,$AUTOB ::SET AUTO-MODE INDICATOR 
000433 ns 69$ :GET OVER THE ASCIZ 
55708: "ASCIZ <CRLF>@CZRMJCO, RMO3/RMO2 DISKLESS DIAGNOSTIC PROGRAM PT 1a<CRLF> 


FIND OUT IF PROGRAM IS RUNNING IN STANDALONE MODE 
000042 TST 42 31S LOC 42 ZERO ?? 
BNE 10$ [NO = NOT IN STANDALONE 
001242 TSTB SENV 31S APT ENVIRONMENT ZERO ?? 
001451 2. BEQ S TANDAL ONE ZYES - PROGRAM IN STANDALONE 


;PROGRAM NOT RUNNING _IN STANDALONE ~ SEE IF a IS ALLOWED 
132737 000200 001243 xSIZ: 1T8 ~ “il eae SIZING ALLOWED ? 


$ :NO 
#377 ,SDEVM TYES - SET DEVICE MAP FOR ALL DEVICES 
$DEVM ;CLEAR THE BIT MAP 
R1 7 START FROM THE DRIVE 0 
#BITO,R4 BIT MAP DOR DRIVE 0 
$BASE ,RO ;BASE ADDRESS 
000010 : ACLR,RMCS2(RO) ;LOAD THE DRIVE ADDRESS 
R1,RMCS2(RO) ;LOAD THE by ADDRESS 
RMCS2(RO) ,R3 et ? 


ANED ,R3 : 
16$ ;TO NEXT DRIVE 
RMCS1(RO) ,R3 ;CHECK THE DVA BIT 
#DVA,R3 :DRIVE AVAILABLE ? 
16$ ;BRANCH IF DRIVE NOT AVAILABLE 
001300 R4,$DEVM ;SET THE BIT MAP FOR ALL AVAILABLE DRIVE 
17$ :DONT TYPE THE NONE EXIST MESG 


066015 . NOTEX : TYPE NOT EXIT MESSAGE 
R1,-(SP) “DRIVE NUMBER 


6 

0 

R1 ; INCREMENT THE DRIVE ADDRESS 

R4 SET UP THE BIT MAP FOR NEXT DRIVE 
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005326 022701 000007 CMP #7,R1 ALL DRIVE ARE CHECKED ? 
005332 103344 BHIS 15$ ;BRANCH IF NOT 
, 005334 20$: 


GO TO ae START CODE 
005334 000137 006166 CMNSTART 
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005340 STANDALONE : 


005340 004737 063076 JSR PC ,$TKINT 
;SEE IF THIS IS THE FIRST START AFTER sting vt WAS LOADED 
000001 DEC #1 FIRST STAR 
BPL 10$ svES °! 


a USER WANTS TO KEEP SAME DEVICES FOR TESTING 
- CNSLOO MAINTAIN PREVIOUS PARAMETERS?? 
GET RESPONSE 
(SP)+,$TMP1 SECHO RESPONSE 
$TMP1 


000131 $TMP1 #'Y :YES RESPONSE ?? 
6$ “NO! ! 


READY eREEP atte PARAME TERS 
000116 : alles PONSE ?? 


20 S 
065167 QS TMRK SNOT YES OR NO, TYPE ‘"?"* 
BR 5$ sRETRY 


: OPERATOR WANTS — FILE 
065171 TYPE -HELPQS ; WANT oahoes ?? 
[GET RESPONSE 
001176 MOV (SP)+,$TMP1 SAVE AND ECHO RESPONSE 
001176 -STMP1 
001176 000131 STMP1,#'Y WAS IT A_YES RESPONSE ?? 


20$ 3NO - DONT TYPE HELP 
106724 -HELP sYES - TYPE HELP TEXT 


: ve WANTS TO CHANGE RMO3 UNIBUS ADDRESS 
065225 ,UBUSQST ;WANT TO CHANGE ADDRESS ?? 
HR GET RESPONSE 
001176 (SP)+,$TMP1 SAVE AND ECHO RESPONSE 
001176 -STMP1 —_ 


DS CR 
(SP) + CLEAR. THE STAC 
001176 000131 STMP1 AY WAS IT A YES RESPONSE 7? 
90$ “NO $3 


30$: 


atin | an CHANGE THE UNIBUS ADDRESS, AND INTERRUPT VECTOR 
065363 YPE ,CNSLO1 ;TYPE CURRENT BUS Hat 
001276 MoV SBASE ,- (SP) 7;SAVE SBASE FOR TYPEQU 
33GO TYPE--OCTAL ASCII CALL DIGITS) 
065160 ~CLSPRN 


GET NEW BUS ADDRESS 
001176 MO (SP)+,$TMP1 ; CARRIAGE Ape 
5 YES-SKIP TO NEXT ENT 
160000 001176 7H alates ZBASE ADDRESS IN 1/0 PAGE?? 
065410 a gis TYPE WARNING MESSAGE 


000756 0$ ZRETRY 
013737 001176 001276 : $TMP1 , $BASE [STORE NEW BUS ADDRESS 
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005216 
000377 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


001176 50S: 


001176 


001272 
001176 


000007 


001273 


90$: 
; DIALOGUE ro INPUT DEVICE NUMBERS 
CLR $DEVM 


000101 


001300 


$VECT1,$TMP1 
STMP1+, 
~CNSLO3 
$TMP1,-(SP) 
3 

0 

~CLSPRN 
(SP)+,$TMP1 
70$ 

#1000, $TMP1 
60$ 

~CNSLO4 

0$ 


$TMP1 ,SVECT1 
$SVECT1+1,$1TMP1 
STMP1 


$TMP1 ,-(SP) 
‘ 

0 

»CLSPRN 
(SP)+,$TMP1 
90$ 

STMP1 #7 
80$ 
-CNSLO6 
70$ 

$TMP1 

$TMP1 

$TMP1 

$TMP1 


$TMP1 
$TMP1,$VECT1+1 


-CNSLO7 
‘PROMPT 


(SP)+,$TMP1 
TMP 1 


$TMP1.#°A 
110$ 


XSiZ 
#377 ,SDEVM 


TYPE CURRENT VECTOR ADDRESS 


2s SAVE $TMP1 FOR TYPEOUT 
:GO as pieitce ASCII 

Z:TYPE 3 DIGIT(S) 

; s SUPPRESS LEADING ZEROS 


;GET NEW VECTOR ADDRESS 
; CARRIAGE RETURN? 

;YES-SKIP TO NEXT ENTRY 
vesir ADDRESS < 1000?? 


S! 
i TYPE Oca MESSAGE 
RETRY 


STORE NEW VECTOR ADDRESS 
TYPE CURRENT PRIORITY 


7 SAVE $TMP1 FOR TYPEOUT 
3:GO TYPE--OCTAL ASCII 
sz TYPE 1 DIGIT(S) 

;2; SUPPRESS LEADING ZEROS 


;GET NEW PRIORITY 
CARRIAGE RETURN?? 

7 YES-SKIP TO pa ENTRY 
LEGAL PRIORITY 


Tyee “WARNING MESSAGE 
STORE NEW PRIORITY 


;CLEAR DEVICE MAP 

STYPE INPUT INSTRUCTIONS 
TYPE PROMPTING CHARACTER 
[GET RESPONSE 

ECHO RESPONSE 


TEST ALL DRIVES?? 
NO 


;TO SIZE ALL POWER UP DRIVES 
STEST ALL DEVICES 


SEQ 0113 
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BR 140$ SKIP TO NEXT ENTRY 
100$: -PROMP ; TYPE PROMPTING CHARACTER 
R GET RESPONSE 
co eee: ECHO RESPONSE 


c4 


000015 MP HA ; CARRIAGE RETURN?? 
000060 : NUMBER < 0?? 

120$ 
000067 


STYPE ‘2° 
;RETRY 
nf ;R1=DRIVE NUMBER 
ATNTBL(R1) R2 ;DECODE DEVICE NUMBER 
#*C377,R2 ;CLEAR UNUSED BITS 


L 
R2,$DEVM 4r set DEVICE # IN MAP 
001300 #377. - SDEVM DONE ? 


ZNO 
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CMNSTART : 


ASSEMBLE TEST QUE FROM DEVICE ae 
MOV SDEVM,R 
#TSTQUE+2,R1 
aa" oe 


R3 
R2,RO 
20$ 


R3,(R1) 
ATNTBL(R3),1(R1): 
2.R1 


25$: 


:SIZE FOR CLOCK 
JSR PC,SIZCLK 
40$ 


BR 
30$: ERROR 
HALT 
BR 30$ 
40$: 
000042 
001242 000001 


001154 000176 


65$ 
#1,$AUTOB 
#PR3,QAEMTVEC+2 


PC, STKINT 
@TSTQUE ,$UNIT 


000403 
112737 000001 001150 
012737 000140 000032 
000240 


004737 063076 
117737 173116 001234 
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zR DEVICE MAP 
3R1 = ADDRESS OF FIRST ENTRY IN QUE 
+ INITIALIZE ENTRY POINTER 
;R2 = vice POINTER 
:R3 = DEVICE NUMBER 
ENO! THIS DEVICE IN MAP ?? 


;YES - ENTER DEVICE NUMBER IN QUE 
ENTER ATTENTION BIT IN QUE 
ADVANCE ENTRY POINTER 
SADVANCE DEVICE — 

: DONE ALL DEVICES ? 


YES 
“ADVANCE DEVICE NUMBER 
sENTER NEXT DEVICE 
; TERMINATE TEST QUE 


sSEE IF CLOCK PRESENT 
:YES = CLOCK IS PRESENT 
CLOCK 


-SBTTL GET VALUE FOR SOF TWARE SWITCH REGISTER 
TST a%4e2 WE 


~ oe ry UNDER XXDP/ACT? 


YE 
ARE WE RUNNING UNDER APT? 
BRANCH IF YES 
33 SOF TWARE SWITCH REG SELECTED? 


CH IF NO 
Z:GET SOFT-SWR SETTINGS 
:3SET AUTO-MODE INDICATOR 
:DROP PRIORITY DURING ERROR TYPEOUT 
;READY TO START TEST 


SINITIALIZE TTY 
[LOAD UNIT NUMBER 


SEQ 0115 
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-SBTTL REGISTER AND STORAGE USAGE 
REGISTER ASSIGNMENTS 


UNIBUS ADDRESS OF RH CONTROLLER 

ADDRESS OF ENTRY IN TEST QUE CORRESPONDING TO THE 
UNIT UNDER TEST 

WORKING REGISTERS FOR TEST IN PROGRESS, MUST BE 
SAVED BY SUBROUTINES 

GENERAL WORKING REGISTERS, ARE NOT SAVED BY 
SUBROUT INES 

STACK POINTER 

LINKAGE REGISTER TO SUBROUTINES 


STORAGE ASSIGNMENTS 


= $TMPO-$STMP4 
:$GDDAT . $BDDAT 
: SGDADR , $BDADR 


= RGOTBF 


TEMPORARY STORAGE, NOT SAVED BY SUBROUTINES 
EXPECTED AND RRECEIVED STATUS FOR ERROR TYPEOUT 


ADDRESS OF EXPECTED AND RECEIVED STATUS IF APPLICABLE, 


ALSO THE ADDRESS OF A REGISTER ERROR 


TEST NUMBER 

NUMBER OF DEVICE BEING TESTED 

THE REGISTER INPUT BUFFER HAS A STORAGE LOCATION FOR 
ane hata AND IS USED WHEN READING STATUS AND 
THE REGISTER OUTPUT BUFFER HAS A STORAGE LOCATION FOR 
EACH REGISTER, AND IS USED FOR ASSEMBLING DATA TO BE 
WRITTEN IN REGISTERS 


SEQ 0116 
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000004 
012737 


' 012702 


012760 
111160 


000010 


001142 
001142 


001140 
001140 
001136 


001136 
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MPR ARERESAAALASLASALASASLARSARAAS ALARA RAR RAR SRR ARAL AS SARA SARS S ESS SD 


TRANSFCR TEST 


J TRAE RA RARER REAR RRRERRAEERAEERARRRRREERERREREKERRRERRERRERE RE 


TST1: SCOPE 
MOV #1,$TESTN 33SET TEST NUMBER IN APT MAIL BOX 


#20. ,SICNT 3:20 ITERATIONS 

#1, SERMAX ;ONE ERROR ALLOWED 
#T1,$LPADR ;LOAD LOOP ON TEST ADDRESS 
#T1,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


#STACK,SP ;LOAD THE STACK POINTER 
$BASE ,RO RO = 
TSTQUE ,R1 =R1 = 
jaa #0,R2 :R2 = REGISTER INDEX 
;CLEAR THe MASSBUS AND VERIFY THAT NONEXISTANT DEVICE ERROR IS RESET 


ACLR,RMCS2(RO) ;CLEAR THE MASSBUS 
(R1).RMCS2(RO) :SELECT UNIT 


RMCS2(RO) , SBDDAT STORE RMCS2 AT S$BDDAT 
#NED , SBDDAT 

20$ 

(R1) , SGDDAT 

#*CUNTMSK , SGDDAT 


ARCS. "SBDADR 
208: 60$ 
sREAD THE REGISTER 8 a Ms IS IN R2 AND EXIT TEST IF THE READ 


;DOES NOT SET ‘NED’ 
MOV RO, 3R3 = REGISTER ADDRESS 
R2.R3 
(R3), R4 READ REGISTER 
NED, RMCS2 (RO) “ 31S ‘NED'’ SET?? 
AMCLR,RMCS2(RO) ;CLEAR THE MASSBUS 
(R1),RMCS2(RO) ;SELECT UNIT 


RMCS2(RO), eel STORE RMCS2 AT S$BDDAT 
sone -SBDDAT 


(R1) , SGDDAT 
#*CUNTMSK , $GDDAT 
#IR,$GDDAT 

RO, $BDADR 

SN Se REDMON 


60$ 


30$: 
sWRITE THE REGISTER — INDEX IS IN R2 AND EXIT TEST IF THE WRITE 
DOES NOT SET ‘NED’’ ERROR 
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012713 
032769 
001432 


103251 


013737 
104002 
000137 


111160 


012760 
012760 
012760 


000000 
010000 


001276 
057100 


000002 
000024 
000001 


006760 
006760 


001100 
001276 
001456 
000040 
000010 
000076 
177777 
001777 
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MOV #0, (R3) ;WRITE REGISTER 
000010 BIT ANED, RMCS2 (RO) siS °*NED*’* SET?? 
BEQ 70$ 3NO!! 


40$: 


;COULD NOT READ OR WRITE THE REGISTER WITHOUT SETING ‘NED"’ “Rees . 


SADVANCE THE REGISTER INDEX AND REPEAT THE TEST FOR THE NEXT 


ZAVAILABLE DEVICE REGISTER 
ADD #2,R2 sADVANCE TO Sas Se gi 


:1S THI 
sYES - TRY 5 REGISTER 
HIS RMBA?? 


sf 
$* TRY NEXT REGISTER 
31S THIS RMCS5?? 
TRY ANOTHER REGISTER 
31S THIS RMAS ? 
TRY ee he REGISTER 


33S 
TRY ANOTHER REGISTER 

31S THIS A LEGAL REGISTER 
TRY THIS REGISTER 


50$: 


GOT "NONEXISTENT DEVICE’ ERROR FOR EVERY REMOTE a hanna ADDRESS 
001136 MOV $BASE, $BDADR STORE BASE ADDRESS 

ERROR 2 ;DEMAND OR TRANSFER FAILED 
60$: JMP $EOSP ;GO SELECT NEXT DEVICE 


70$: 


ZIRE KERR EKER KEKE KEE EEK KER KERR EERE EERE KEK 


i*TEST 2 CTOD TEST 


FL II IIR RIK RIK KERIKERI KEE ERE EKER EKER KEKE 
TST2: 
#2,$TESTN :zSET TEST NUMBER IN APT MAIL BOX 


og ties 320 ITERATIONS 

#1, SERMAX ZONE ERROR ALLOWED 
#T2,$LPADR ;LOAD LOOP ON TEST ADDRESS 
#T2,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


ASTACK, SP ;LOAD THE STACK POINTER 
$BASE ,RO ;RO = UNIBUS ADDRESS OF UUT 
TSTQUE ,R1 :R1_ = POINTER TO DEVICE 
AMCLR,RMCS2(RO) ;CLEAR THE MASSBUS 
MOVB (R1),RMCS2(RO) ;SELECT UNIT 
;WRITE ONES IN REMOTE REGISTERS 


000000 MOV MILF76,RMCS1(RO) ;LOAD RMCS1 
000006 MOV #-1 ,RMDA(RO) ;LOAD RMDA 
000034 MOV ACYLMSK ,RMDC (RO) ;LOAD RMDC 


SEQ 0118 
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CZRMJC.P11 21=AUG=78 09:19 T2 CTOD TEST CZRM 
007030 012760 016200 000032 MOV. cAEMTIG!ECT :HCI !OFD .RMOF (RO) ;LOAD RMOF 6C 
;READ REMOTE REGISTERS TWICE 6C 

007036 012702 000001 MOV = #1,R2 6C 
007042 108: 6 
007042 016037 000000 001326 RMCS1(RO),RMCS1I ;STORE RMCS1 IN INPUT BUFFER 6 
007050 016037 000006 001334 RMDA(RO),RMDAI ;STORE RMDA IN INPUT BUFFER 6 
016037 000034 001362 RMDC(RO),RMDCI ;STORE RMDC IN INPUT BUFFER 6 

016037 000032 001360 RMOF (RO) ,RMOFI ;STORE RMOF IN INPUT BUFFER 6C 

005302 R2 6C 

10$ 6 

; ONE BITS CAME BACK 6C 

177701 001326 8 #ACILF76.RMCSTI z18 RMCS1 02? 6 

001334 RMDAI :1s RMDA 02? 61 

BN 208 61 

176000 001362 @XNUDC.RMDCI TS "RMDC 07? 61 

208 ZNO! ! 61 

161577 001360 #XNUOF ,RMOFI = 1S POF 0 2? 61 

BNE >NO! 61 

;CANNOT READ ANY ONE BITS FROM REMOTE REGISTERS 61 

ERROR 3 ;CTOD MUST BE STUCK 61 

208: 61 

23 REE EREKKEKEERKEKEEKKKEKEEREKKEKREKRKEKEKKKEKEKEKKEKKK 6) 


s*TEST 3 MASSBUS INITIALIZE TEST 

FRI ICIICICIOSOICIOICIOI IOUS ORI ISI I IIIA ISI ISISISSISSIS SSIS ISIS SSSAS AN 
000004 TST5: 
012737 001226 #3,$TESTN 7:SET TEST NUMBER IN APT MAIL BOX 





#20. ,$ICNT 720 ITERATIONS 

#1, S$ERMAX ‘ONE ERROR ALLOWED 

#T3,$LPADR ;:LOAD LOOP ON TEST ADDRESS 
001124 #1T3.$LPERR :LOAD LOOP ON ERROR ADDRESS 


STACK , SP ;LOAD THE STACK POINTER 
$BASE ,RO :RO = UNIBUS ADDRESS OF UUT 
TSTQUE ,R1 :R1 = POINTER TO DEVICE 
000010 MOV #CLR,RMCS2(RO) :CLEAR THE MASSBUS 
MOVB (R1).RMCS2(RO) ;SELECT UNIT 
;WRITE ONES IN SELECTED REGISTERS 


012760 000000 MOV MILF76,RMCS1(RO) ;LOAD RMCS1 
012760 177777 000014 MOV #-1,RMER1(RO) ;LOAD RMER1 


012760 177777 000042 MOV #-1,RMER2(RO)  ;:LOAD RMER2 

:USING CONTROLLER CLEAR, IE., BIT 5 OF RMCS2, INITIALIZE THE MASSBUS 
012760 000040 000010 MOV wcLR, RMC $2 (RO) :CLEAR THE MASSBUS 
111160 000010 MOVB = (R CS2(RO) :SELECT UNIT 

;READ THE Wecisrens. that WERE WRITTEN 


QSOs Ds Ds Ds Ds Dy Ds Ds Dy Qs Oy Ds Os Dy Os Oy Dy Os Oy Oy D> Oy Ds Oy Dy Ds Oy 
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016037 
016037 
016037 
052737 


000000 
000014 
000042 
177701 


177777 
177777 
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MASSBUS INITIALIZE TEST 


RMCS1(RO) ,RMCS11 
RMER1 (RO) ,RMER1I 
RMER2 (RO) ,RMER2I 


MOV 
7 REGISTER BITS WERE CLEARED 


#*CILF76,RMCS1I 
#XNUER2 , RMER21 
#-1,RMCS11 

10$ 

#-1 ,RMER11 

10$ 

#-1 ,RMER21 

10$ 


BNE 
NONE OF THE BITS WERE CLEARED 
ERROR 4 


SEQ 0120 


STORE RMCS1 IN INPUT BUFFER 
STORE RMER1 IN INPUT BUFFER 
STORE RMER2 IN INPUT BUFFER 
7SET ANY BIT NOT WRITTEN 
zANY ZEROS IN RMCS1?? 

zANY ZEROS iN RMERI?? 

ZANY ZEROS IN RMER2?? 


sVES!' 
sves!: 


sMASSBUS INIT FAILED 


10$: 


EEK EKER EKER EREKEEKEKEKEKKEKKEEKKEKKEKKEKKE 


TATEST 4 CLEAR STUCK ACTIVE TEST 


RRR EKER ERE ERE KKREEKKEEKKEKEKEEKEERERKKEEEEEKKKKE 


000004 
012737 


012760 
111160 
012760 


012760 
012760 


016037 
016037 
016037 


001005 
032737 


177777 
177777 
000001 


000014 
000042 


000024 
040000 


040200 
000001 


001226 


001120 


000010 


000014 
000042 
000024 


001342 
001370 
001352 


001342 . 


001370 
001352 


TST4: 


#4, STESTN 


#20. ,SICNT 
#1 , SERMAX 
#T4,$LPADR 
#T4,$LPERR 


STACK, SP 
$BASE ,RO 
TSTQUE ,R1 
#CLR.RMCS2 (RO) 
(R1) ,RMCS2(RO) 


MOVB 
;WRITE ONES IN TEST REGISTERS 


MOV 
MOV 


#-1 ,RMER1 (RO) 
#-1 ,RMER2 (RO) 
#DMD ,RMMR1 (RO) 


MOV 
READ TEST REGISTERS AND SEE IF 


RMER1(RO) ,RMER11 
RMER2 (RO) ,RMER21 


RMMR1 (RO) ,RMMR1 I 
>) tat 


10$ :BR 
AMSKI!DVC,RMER2I ; 


#DMD ,RMMR1 I 


7zSET TEST NUMBER IN APT MAIL BOX 


20 ITERATIONS 
;ONE ERROR ALLOWED 


;LOAD LOOP ON TEST ADDRESS 
;LOAD LOOP ON ERROR ADDRESS 


;LOAD THE STACK POINTER 

RO = UNIBUS ADDRESS OF UUT 
;R1_ = POINTER TO DEVICE 

= CLEAR THE MASSBUS 

SELECT UNIT 


;LOAD RMER1 


;LOAD RMER2 


;LOAD RMMR1 
ANY BITS ARE ON 


STORE RMER1 IN INPUT BUFFER 
;STORE RMER2 IN INPUT BUFFER 
;STORE RMMR1 IN INPUT BUFFER 
;DONT ACCEPT UNSAFE 
ANCH IF ANY ra BITS ON 


SKI_OR DVC 
;BRANCH IF ANY OTHER BITS ON 
BRANCH IF DMD IS ON 








CZRMJCO RMO3/2 DSKLS PRT 1 


CZRMJC.P11 


21-AUG-78 


001001 
104026 


111160 


012760 
012760 
012760 
012760 
012760 


012760 
012760 
012760 
012760 
012760 
012760 


016037 
016037 
016037 
016037 


09:19 


177777 
177777 
177777 
177777 


000000 
000000 
000000 
000000 
000000 
000000 


000000 
000006 
000014 
000032 


MACY11 


001226 
001120 


001124 


000010 


000000 
000006 
000014 
000032 
000042 


000000 
000006 
000014 
000032 
000034 
000042 


001326 
001334 
001342 
001360 


E 10 
30A(1052) 21-AUG-78 09:22 PAGE 121 SEQ 0121 
T4 CLEAR STUCK ACTIVE TEST 


BNE 10$ 
108 ERROR 26 ;MBA CLR IS STUCK ACTIVE 


SRR RRR ERR EERE EERE REEE EERE EERE EERE REERRE EERE EEE 


S*TEST 5 TRISTATE TRANSFER TEST 


RRR REEEKEKEKEEEEEEER ERE ERKEKEEKK 


STS: 


#5, STESTN 73SET TEST NUMBER IN APT MAIL BOX 
#20. ,S1CNT 320 ITERATIONS 

;ONE ERROR ALLOWED 

;LOAD LOOP ON TEST ADDRESS 
#TS,$LPERR ;LOAD LOOP ON ERROR ADDRESS 
ASTACK , SP ;LOAD THE STACK POINTER 
$BASE RO :RO = UNIBUS ADDRESS OF UUT 
TSTQUE ,R* :R1 = POINTER TO DEVICE 
R2 ;CLEAR ERROR FLAGS 
rp Ate te ;CLEAR THE MASSBUS 
MOVB (R1),RMCS2(RO) ;SELECT UNIT 
WRITE ONES IN SELECTED. REGISTERS 

#ILF76,RMCS1(RO) ;LOAD RMCS1 
#-1 ,RMDA(RO) ;LOAD RMDA 
#-1,RMER1(RO) ;LOAD RMER1 
#-1 ,RMOF (RO) ;LOAD RMOF 


#-1,RMER2(RO) _;LOAD RMER2 
SELECTED REGISTERS 


#0,RMCS1(RO) LOAD RMCS1 
#0,.RMDA(RO) ;LOAD RMDA 
#0 ,RMER1 (RO) ;LOAD RMER1 
#0,RMOF (RO) ;LOAD RMOF 
#0,RMDC (RO) ;LOAD RMDC 


MOV #0 ,RMER2 (RO) ;LOAD RMER2 
READ BACK ALL REGISTERS 


RMCS1(RO),.RMCS1I STORE RMCS1 IN INPUT BUFFER 
RMDA(RO),RMDAI ;STORE RMDA IN INPUT BUFFER 
RMER1 (RU) ,RMER1I ;STORE RMER1 IN INPUT BUFFER 
RMOF (RO),RMOFI ;STORE RMOF IN INPUT BUFFER 


ABABAAAAAAAARAMAEIEEVEUTBEUVVUVAURTRTVVBBLBR 


RO 


AL 
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CZRMJCO RMO3/2_ DSKLS PRT MACY11 30A(1052) 21-AUG-78 09: 2b PAGE 122 SEQ 0122 
CZRMJC P11 21-AUG-78 09: 19 T5 TRISTATE TRANSFER TEST 


016037 000034 001362 MOV RMDC(RO),RMDCI ;STORE RMDC IN INPUT BUFFER 


016037 000042 0 MOV RMER2 (RO) ,RMER2] ;STORE RMER2 IN INPUT BUFFER 
CHECK EACH REGISTER CONTENT FOR _ZERO BITS WRITTEN & READ. 
012702 177777 MOV #-1,R2 ACCUMULATE ZEROS IN R2 
wCILF76, RMCS1I “SEI ALL BITS NOT WRITTEN 
#XNUOF ,RMOF | 
A#XNUDC ,RMDCI 
001370 #XNUERZ ,RMER2 


; COMPLEMENT REGISTER CONTENTS 


ACCUMULATE ALL ZERO BITS 


010114 BEQ 10$ ;BRANCH IF EACH BIT IS ZERO 
; MORE BIT POSITIONS ARE NOT ZERO 
010116 010237 MOV R2,$BDDAT :SAVE RESULT FOR TYPE 
005037 CLR $GDDAT ;LOAD EXPECTED RESULT 
ERROR 5 : TRISTATE BUS IS STUCK AT ONE 
BIS #BITO,R2 ;SET ERROR FLAG 
10$: 
000010 MOV ACLR,RMCS2(RO) ;CLEAR THE MASSBUS 
010142 MOVB (R1),RMCS2(RO) ;SELECT UNIT 
;PRESET SELECTED REGISTERS TO ZEROS 
: (ASSUME RMCS1, RMER1, RMER2 WERE CLEARED BY INIT) 
010146 000006 MOV #0,RMDA(RO) ;LOAD RMDA 
010154 012760 000032 MOV #0,RMOF (RO) ;LOAD RMOF 


010162 012760 000034 MOV #0 ,RMDC (RO) ;LOAD RMDC 
;WRITE ONES IN SELECTED REGISTERS 


010170 012760 000000 #ILF76,RMCS1(RO) LOAD RMCS1 
010176 012760 177777 000006 #-1,RMDA(RO) LOAD RMDA 
010204 012760 016200 000032 #*CXNUOF , RMOF (RO) ;LOAD RMOF 
010272 012760 001777 000034 #“CXNUDC ,RMDC (RO) LOAD RMDC 
010220 012760 177777 000014 #-1,RMER1(RO) ;LOAD RMER1 


010226 012760 176210 000042 MOV #*CXNUER2 ,RMER2 (RO) ;LOAD RMER2 * 
READ ALL REGISTERS 


010234 016037 000000 001326 MOV RMCS1(RO),RMCS11 STORE RMCS1 IN INPUT BUFFER 





CZRMJCO RMO3/2 DSKLS PRT 1 


CZRMJC.P11 


010242 
010250 
010256 


21-AUG-78 


016037 
016037 
016037 


09:1 


000006 
000932 
000034 


MACY11 oe 


001334 
001 360 
001362 


RMDA(RO) ,RMDAI 
RMOF (RO) ,RMOF I 
RMDC (RO) ,RMDCI 


G 10 
21-AUG-78 09:22 PAGE 123 
TRISTATE TRANSFER TEST 
STORE RMDA IN INPUT BUFFER 
STORE RMOF IN INPUT BUFFER 
STORE RMDC IN INPUT BUFFER 


SEQ 0123 


010264 
010272 


016037 
016037 


000014 
000042 
177701 


001342 
001370 


RMER1 (RO) ,RMER11 STORE RMER1 IN INPUT BUFFER 


MOV RMER2 (RO) ,RMER21 ;STORE RMER2 ye INPUT BUFFER 
REGISTER CONTENT FOR ONE BITS WRITTEN & READ 
C #*CILF76,RMCS1I ;CLEAR ALL BITS NOT WRITTEN 
PXNUOF -RMOF I 
AXNUDC ,RMDCi 
001370 A#XNUER2 ,RMER2I 
R2 sACCUMULATE ONES IN R2 
ACCUMULATE ALL ONE BITS 


177777 :SEE IF EACH BIT POSITION WAS ONE 
BEQ $ SBRANCH IF NONE STUCK 

MORE BIT POSITIONS ARE NOT ONE 
SAVE RESULT FOR TYPE 


001142 ; MOV R2, $BDDAT 
177777 001140 MOV #~-1,$GDDAT SEXPECTED RESULT 
:SET ERROR FLAG 


6 
000002 #BIT1,R2 


010237 
012737 


104006 
052702 
005702 R2 
001131 30$ 
012702 000001 256 #1,R2 ;R2=BIT POSITION 
012760 000040 ACLR,RMCS2(RO) ;CLEAR THE MASSBUS 
111160 000010 MOVB (R1),RMCS2(RO) ;SELECT UNIT 
;WRITE THE BIT PATTERN IN SELECTED DEVICE REGISTERS 

R2,RMDA(RO) ;LOAD RMDA 

R2,RMOF (RO) ;LOAD RMOF 

R2,RMDC (RO) LOAD RMDC 

R2,RMER1 (RO) ;LOAD RMER1 


MOV R2,RMER2 (RO) LOAD RMER2 
;READ BACK THE REGISTERS 


001334 MOV RMDA(RO) ,RMDAI 
001360 MOV RMOF (RO) , RMOF I 
001362 MOV RMDC (RO) ,RMDCI 


zANY ERRORS DETECTED ?? 
z:YES - DONT DO BIT TEST 


010260 
010260 
010260 
010260 
010260 


000006 
000032 
000034 
000014 
000042 


016037 
016037 
016037 


000006 
000032 
000034 


STORE RMDA IN INPUT BUFFER 
STORE RMOF IN INPUT BUFFER 
STORE RMDC IN INPUT BUFFER 





CZRMJCO RMO3/2 DSKLS PRT 1 
21-AUG-78 09:19 


CZRMJC.P11 
010500 
010506 
010514 


016037 
016037 


000004 
012737 


000014 
000042 


177777 
001334 


001360 
161577 


161577 
001362 
176000 
176000 
001342 


001376 
001567 


001567 


001140 
001142 


010420 


H 10 
MACY11 30A(1052) 21-AUG-78 09:22 PAGE 124 
T5 TRISTATE TRANSFER TEST 


001342 MOV RMER1 (RO) ,RMER1I ;STORE RMER1 IN INPUT BUFFER 


001370 MOV RMER2 (RO) ,RMER21 STORE RMER2 IN INPUT BUFFER 
CHECK REGISTER CONTENTS FOR CORRECT PATTERN 
CLR R3 ;R3=ACCUMULATED ONE BIT 
7R4=ACCUMULATED ZERO BITS 
GET ANY GOOD BITS FROM RMDA 


:GET GOOD BITS FROM RMOF 
;GET GOOD BITS FROM RMDC 


;GET GOOD BITS FROM RMER1 


GET GOOD BITS FROM RMER2 


RESET ALL ONES IN R3 EXCEPT 
;FOR THE TEST BIT 


RESET TEST BIT IN R4 

COMBINE ACCUMULATED 1°S + 0'S 
42 eas OK?? 

ov 


2 s¥ES!! 

R2,$GDDAT SAVE TEST PATTERN 
R3,$BDDAT SAVE RESULT 

7 BIT INTERFERENCE IN TRISTATE BUS 
30$ SKIP TO NEXT 


26$: 

zADVANCE R2 TO THE NEXT PATTERN AND REPEAT TEST 
ASL R2 sSHIFT THE BIT 
BEQ 30% sEXIT IF DONE 
JMP 25$ 

30$: 


PAP SESEESSSECSESESESELESL ERLE SSE SESS REESE SSR R AR SR AAR ARR ARRAS SSDS SSS! 


T*TEST 6 REGISTER SELECT TEST 


TORRES SESSESSSELESSSE SEES SESE REE ESSER RRA SERRE RASA SSR ASS SAAR DODDS DS 


TST6: SCOPE 


000006 001226 MOV #6,$TESTN 3:SET TEST NUMBER IN APT MAIL BOX 


SEQ 0124 
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CZRMJC.P11 21-AUG-78 09:19 T6 REGISTER SELECT TEST CZRMJ 


637 


009024 001120 #20. ,$ICNT 220 ITERATIONS 
000901 #1, SERMAX ONE ERROR ALLOWED 
010740 #T6,$LPADR :LOAD LOOP ON TEST ADDRESS 
010740 001124 - #T6,$LPERR ;LOAD LOOP ON ERROR ADDRESS 
001100 ASTACK, SP LOAD THE STACK POINTER 
trad RO RO = UNIBUS ADDRESS OF UUT 
010750 013701 MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
:THE FOLLOWING TABLE GIVES MASSBUS REGISTER SELECT VALUES FOR 
SEACH DEVICE REGISTER 


REGISTER rt SEL 
NAME 


(16,8,4,2,1) 


EACH REGISTER SELECT LINE IS TESTED FOR A STUCK AT ONE, 
STUCK AT ZERO FAULT. AS AN EXAMPLE, TO TEST REG SEL 1. 
FOR S-A-0, RMER1 IS WRITTEN WITH ZEROS. THEN THE REGISTER 
; THAT HAS THE SAME SELECT VALUE, EXCEPT FOR THE SELECT LINE 
;BEING TESTED, IS WRITTEN WITH ONES. IN THIS EXAMPLE, 
7;RMMR1 IS WRITTEN WITH ONES. IF SELECT LINE 1 IS S-A-0, 
;THE ALL ONES WORD WILL BE WRITTEN IN RMER1, AND RMER1 
;WILL NOT BE O WHEN READ BACK. 


010754 005002 CLR ;R2= ZEROS SOURCE 
010756 012703 177777 MOV & ;R3= ONES SOURCE 
TEST REG SEL 1 
010762 012760 000040 000010 MOV MCLR,RMCS2(RO) ;CLEAR THE MASSBUS 
010770 111160 000010 (R1),RMCS2(RO) ;SELECT UNIT 
010774 010260 000074 R2,RMER1 (RO) ;LOAD RMER1 
011000 010260 000034 R2,RMDC (RO) LOAD RMDC 
011004 010360 000024 R3,RMMR1 (RO) ;LOAD RMMR1 


011010 010360 000036 R3,RMHR (RO) ;LOAD RMHR 
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011014 016037 000014 001342 RMER1 (RO) ,RMERTI STORE RMER1 IN INPUT BUFFER 


011022 016037 000034 001362 RMDC(RO),RMDCI ;STORE RMDC IN INPUT BUFFER 
001342 R3,RMER11 


10$ 
176000 007362 #XNUDC ,RMDCI 
001362 MP acti 
10 sREG SEL 1 IS S-A-0 
011054 10$: 
TEST REG SEL 1 FOR S-A-1 
011054 012760 000010 MOV ACLR,RMCS2(RO) ;CLEAR THE MASSBUS 
011062 111160 0000 (R1),RMCS2(RO) ;SELECT UNIT 
011066 010260 R2,RMDA(RO) ;LOAD RMDA 
011072 010260 R2,RMOF (RO) ;LOAD RMOF 
011076 010260 R2,RMER2 (RO) ;LOAD RMER2 
011102 010360 R3,RMAS (RO) ;LOAD RMAS 
011106 010360 R3,RMSN(RO) ;LOAD RMSN 
011112 010360 000040 R3,RMMR2 (RO) LOAD RMMR2 


011116 016037 000006 001334 RMDA(RO),RMDAI ;STORE RMDA IN INPUT BUFFER 


011124 016037 000032 001360 RMOF (RO) ,RMOFI ;STORE RMOF IN INPUT BUFFER 
000042 001370 RMER2 (RO) ,RMER2 1 STORE RMER2 IN INPUT BUFFER 
R3,RMDAI 


001334 
20$ 


161577 (001360 AXNUOF , RMOF I 
001360 R3,RMOF I 


20$ 
001567 001370 AXNUER2 ,RMER2 1 
001370 me 


2 
11 sREG SEL 1 IS S-A-1 
20$: 


zTEST REG SEL 2 FOR S-A-0 

012760 MOV ACLR,RMCS2(RO) ;CLEAR THE MASSBUS 
111160 (R1),RMCS2(RO) ;SELECT UNIT 
010260 R2,RMDA(RO) ;LOAD RMDA 
010260 R2,RMOF (RO) ;LOAD RMOF 

011222 010260 R2,RMER2(RO) ;LOAD RMER2 

011226 010360 R3,RMLA(RO) ;LOAD RMLA 


011232 010360 R3,RMHR(RO) ;LOAD RMHR 
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CZRMJC.P11 21-AUG-78 09:19 T6 REGISTER SELECT TEST 


5804 

gone 011236 010360 000046 MOV R3,RMEC2(RO) ;LOAD RMEC2 

rsa 011242 016037 000006 001334 MOV RMDA(RO),RMDAI ;STORE RMDA IN INPUT BUFFER 
rs s44 011250 016037 000032 001360 MOV RMOF (RO) ,.RMOFI ;STORE RMOF IN INPUT BUFFER 
5811 011256 016037 000042 001370 MOV RMER2 (RO) ,RMER2 1 ;STORE RMER2 IN INPUT BUFFER 
5812 011264 020337 001334 CMP R3,RMDAI 

5813 01127C 001015 BNE $ 

5814 011272 052737 161577 001360 BIS #XNUOF ,RMOF I 

5815 011300 020337 001360 CMP R3,RMOF I 

5816 011304 001007 BNE 30$ 

5817 011306 052737 001567 001370 BIS AXNUER2 ,RMER2ZI 

5818 011314 020337 001370 CMP R3,RMER2I 

5819 011320 001001 BNE 30$ 

5820 011322 104012 ERROR 12 sREG SEL 2 IS S-A-0 

5821 011324 30$: 

5822 

5823 :TEST REG SEL 2 FOR S-A-1 

5824 011324 012760 000040 000010 MOV MCLR,RMCS2(RO) ;CLEAR THE MASSBUS 

ease 011332 111160 000010 MOVB (R1),RMCS2(RO) ;SELECT UNIT 

ase 011336 010260 000014 MOV R2,RMER1 (RO) ;LOAD RMER1 

34 011342 010260 000034 MOV R2,RMDC (RO) LOAD RMDC 

al 011346 012760 000076 000000 MOV #ILF76,RMCS1(RO) LOAD RMCS1 

ett 011354 010360 000030 MOV R3,RMSN(RO) LOAD RMSN 

24 011360 016037 000014 001342 MOV RMER1 (RO) ,RMER11 STORE RMER1 IN INPUT BUFFER 
5837 011366 016037 000034 001362 MOV RMDC(RO),RMDCI ;STORE RMDC IN INPUT BUFFER 
5838 011374 052737 177701 001342 BIS #*CILF76,RMER1I 

5839 011402 020337 001342 CMP R3,RMER11 

5840 011406 001007 BNE 40$ 

5841 011410 052737 176000 001362 BIS A#XNUDC ,RMDCI 

5842 011416 020337 001362 CMP R3,RMDCI 

5843 011422 001001 BNE 40$ 

5844 011424 104013 ERROR 13 zREG SEL 2 IS S-A~1 

585 011426 40$: 

5846 

5847 :TEST REG SEL 4 FOR S-A-0 

5848 011426 012760 000040 000010 MOV ACLR,RMCS2(RO) ;CLEAR THE MASSBUS 

po 011434 111160 000010 MOVB (R1),RMCS2(RO) ;SELECT UNIT 

234 011440 010260 000014 MOV R2,RMER1 (RO) LOAD RMER1 

oes? 011444 010260 000032 MOV R2,.RMOF (RO) LOAD RMOF 

2234 011450 010260 000034 MOV R2,RMDC (RO) LOAD RMDC 

ite 011454 010360 000026 MOV R3,RMDT (RO) LOAD RMDT 


5859 011460 010360 000042 MOV R3,RMER2(RO) LOAD RMER2 
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011464 010360 000044 R3,RMEC1(RO) ;LOAD RMEC1 

011470 016037 000014 RMER1 (RO) ,RMER1I STORE RMER1 IN INPUT BUFFER 

011476 016037 000032 RMOF (RO),RMOFI ;STORE RMOF IN INPUT BUFFER 


016037 000034 RMDC(RO),RMDCI ;STORE RMDC IN INPUT BUFFER 
001342 R3,RMERT1 


BN 50$ 
161577 #XNUOF , RMOF I 
001360 — I 
176000 #XNUDC ,RMDCI 
001362 Tate 


14 sREG SEL 4 IS S-A-0 
011552 50$: 


3TEST REG SEL 4 FOR S-A-1 
011552 MOV AMCLR.RMCS2(RO) ;CLEAR THE MASSBUS 

011560 (R1),RMCS2(RO) ;SELECT UNIT 

011564 R2,RMDA(RO) ;LOAD RMDA 

011570 R2,RMER2 (RO) ;LOAD RMER2 

011574 R3,RMDS(RO) ;LOAD RMDS 

011600 R3.RMOF (RO) LOAD RMOF 

011604 RMDA(RO),RMDAI ;STORE RMDA IN INPUT BUFFER 


011612 016037 000042 RMER2 (RO) ,RMER21 STORE RMER2 IN INPUT BUFFER 
011620 3 Al 


60$ 
M#XNUER2 ,RMER2Z I 
R3..RMER21 

60$ 
15 sREG SEL 4 IS S-A-1 


60$: 
;TEST REG SEL 8 FOR S-A-0 
00004 MOV MCLR,RMCS2(RO) ;CLEAR THE MASSBUS 
011652 (R1),RMCS2(RO) ;SELECT UNIT 
011656 R2,RMER1(RO) ;LOAD RMER1 
011662 R2,RMDA(RO) ;LOAD RMDA 
011666 R3,RMDC (RO) ;LOAD RMDC 
011672 R3,RMER2(RO) ;LOAD RMER2 


011676 016037 RMER1 (RO) ,RMER11 STORE RMER1 IN INPUT BUFFER 





CZRMJCO RMO3/2 DSKLS PRT 1 


CZRMJC.P11 


011742 
011746 
011752 
011756 
011762 
011766 
011772 


012056 
012060 


012120 


016037 
020337 


001004 
020337 
001001 
104016 


012760 
111160 


010260 
010260 
010260 
010360 
010360 


000004 
012737 


012737 
012706 


21-AUG-78 09:19 


000006 
001342 
001334 


000034 


000042 
161577 


176000 
001362 


001567 
001370 


000007 


000024 


000001 
012120 
012120 


001100 


MACY11 30A(1052) 
T6 


001334 


000010 


70$: 
sTEST REG SEL 8 
MOV 


80$: 


RMDA(RO) ,RMDAI 
R3,RMER11 
70$ 


R3,RMDAI 

70$ 

16 

FOR S-A-1 
#CLR,RMCS2(RO) 
(R1) ,RMCS2(RO) 
R2,RMOF (RO) 
R2,RMDC (RO) 
R2,RMER2 (RO) 
R3,RMDS (RO) 
R3,RMER1 (RO) 
R3,RMDA(RO) 
RMOF (RO) , RMOF I 
RMDC (RO) ,RMDCI 


RMER2 (RO) ,RMER21 


#XNUOF ,RMOF I 
80$ 

A#XNUDC ,RMDCI 
R3,RMDCI 


0s 
AXNUER2 ,RMER2I 
owenes 


17 


M 10 
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REGISTER SELECT TEST 


STORE RMDA IN INPUT BUFFER 


sREG SEL 8 IS S-A-0 


;CLEAR THE MASSBUS 
;SELECT UNIT 


;LOAD RMOF 

;LOAD RMDC 

;LOAD RMER2 

;LOAD RMDS 

;LOAD RMER1 

;LOAD RMDA 

;STORE RMOF IN INPUT BUFFER 
7STORE RMDC IN INPUT BUFFER 


STORE RMER2 IN INPUT BUFFER 


REG SEL 8 IS S-A-1 


REGISTER SELECT 16 IS TESTED BY THE ILR TEST 


LL RARER EEE EERE REE EEE EERE EERE ERE REE 


i*TEST 7 


DRIVE TYPE TEST 


FLERE RARER EERE EEE EEE EEE ERE REE KERR EREEREHERER 


TST7: 


#7, STESTN 


#20. ,$ICNT 


73SET TEST NUMBER IN APT MAIL BOX 


220 ITERATIONS 
ONE ERROR A 


ALLOWED 
LOAD LOOP ON TEST ADDRESS 


#17. $LPERR 
#STACK , SP 


;LOAD LOOP ON ERROR ADDRESS 
;LOAD THE STACK POINTER 


SEQ 0129 
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012124 013700 001276 $BASE ,RO ;RO = UNIBUS ADDRESS OF UUT 
013701 001456 TSTQUE ,R1 3R1 = POINTER TO DEVICE 


016037 000026 001142 RMDT(RO) ,SBDDAT ;STORE RMDT AT SBDDAT 
020024 001142 #SNGPRT , SBDDAT = SINGLE PORT RMO3?? 


10$ ; YES! 
024024 001142 #DULPRT , SBDDAT DUAL PORT RMO3?? 


020025 001142 #SNGPRT 'B1T0, “sepbat "i : SINGLE PROT RMO2 ? 
024025 001142 #DULPRT !BITO,SBDDAT SDUAL PORT RMO2 ? 


;BRANCH IF SO 
001174 #SNGPRT.S$TMPO LOAD ACCEPTABLE VALUES 
001176 #DULPRT ,STMP1 
;LOAD BAD ADDRESS 


001136 
DEVICE NOT AN RMO3 
10$ :GO TO NEXT DEVICE 


RRR REE KERR EKER EREKERKEKKEKEKKEKEEEKKEREKKKKEKEKK 


t*TEST 10 DEVICE AVAILABLE TEST 


ZEAE III SIOISISIIIOIIOIIIIIOIIOIOIOI IOUT IOI TOOT ITT AIO ISIS AISI IASI 
000004 TST10: 
012240 012737 000010 MOV #10, $TESTN 73SET TEST NUMBER IN APT MAIL BOX 


012246 
000024 #20. ,SICNT 320 ITERATIONS 
000001 1131 #1 , SERMAX ;ONE ERROR ALLOWED 
012300 #T10,$LPADR ;LOAD LOOP ON TEST ADDRESS 
012300 #T10,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


001100 #STACK , SP ;LOAD THE STACK POINTER 
001276 $BASE RO :RO = UNIBUS ADDRESS OF UUT 
001456 TSTQUE ,R1 :R1 = POINTER TO DEVICE 
000040 #CLR,RMCS2(RO) = CLEAR THE MASSBUS 

000010 (R1).RMCS2(RO) :SELECT UNIT 


000000 001142 RMCS1(RO) , SBDDAT 7ST - gy AT $BDDAT 
173777 001142 te tains 7 CLEAR T DVA 


1 ;BRANC 

004000 001140 A#DVA,SGDDAT SETUP EXPECTED 

001136 MOV RO, $BDADR :SETUP REG ADDRESS 
108 60 :DEVICE NOT AVAILABLE 


DLA RARER REE REE REE EERE EERE REE REE EKERREREKE 


z*TEST 11 HOLDING REGISTER TRANSFER TEST 


°F mse pau ta ii cian ini alba ecient 
012360 000004 TST11: SCOPE 
012362 012737 001226 MOV #11, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 


012370 000240 NOP ‘ 
012372 012737 001120 MOV #20. ,$1CNT 320 ITERATIONS 
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112737 000001 001131 #1 , SERMAX ;ONE ERROR ALLOWED 
012737 012422 #T11,$LPADR ;LOAD LOOP ON TEST ADDRESS 
012737 012422 #711,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


ASTACK , SP ;LOAD THE STACK POINTER 

SBASE RO :RO = UNIBUS ADDRESS OF UUT 

TSTQUE ,R ;R1 = POINTER TO DEVICE 
000010 ACLR, RCS2 (RO) SSBUS 


(R1) ,RMCS2(RO) 
R3 CLEAR ERROR FLAGS 
RO, $BDADR ;SETUP REGISTER ADDRESS 


ADD #RMHR , SBDADR 
;WRITE ONES THEN ZEROS IN RMHR AND CHECK FOR S~A-1 BITS. 
NOTE THAT IT IS NECESSARY TO WRITE SOME OTHER REGISTER IN 
ZORDER TO WRITE THE HOLDING REGISTER, AND RMDA IS USED FOR THIS 


PURPOSE . 


012464 012760 177777 000006 #-1 ,RMDA(RO) ;LOAD RMDA 
012472 012760 900000 000006 #0 ,RMDA(RO) LOAD RMDA 


016037 000036 001142 RMHR(RO),S$BDDAT ;STORE RMHR AT S$BDDAT 
001142 $BDDAT ANY ERROR?? 
10$ zNO!! 
001140 $GDDAT LOAD EXPECTED 


6 
052703 000001 #B1T0,R3 SET ERROR FLAGS 
012526 10$: 


RRR EERE REEKEREKKEEEREKEEKKEEKEEKRKKEEKEKEEKKEKEKKKKEKKH 


[WRITE ZEROS THEN ONES IN RMHR AND CHECK FOR S~A-O BITS. 
012526 9012760 000000 000006 #0 ,RMDA(RO) LOAD RMDA 
012534 012760 177777 000006 4-1 ,RMDA(RO) ;LOAD RMDA 
012542 016037 000036 001142 RMHR (RO) , SBDDAT 5 dies RMHR AT SBDDAT 
SBDDAT RMHR_ IS COMPLEMENTED WHEN READ 


001140 4-1 , SGDDAT SETUP EXPECTED 
001142 a pac ZANY ERROR?? 


012456 000036 001136 


62 
#BIT1,R3 SET ERROR FLAG 


20$: 


IORI IOI IOSOIROIOIOI IIT ORISA IAI IIIS IAI IIISIIISIISIIISIAI ASI ISASAASSS SM. 
7; IF NO PREVIOUS ERRORS, WRITE AND READ SHIFTING ONE BIT PATTERN. 
TST R3 ANY FLAGS SET?? 
BNE 50$ sYES!? 
012702 000001 MOV #1,R2 3R2=DATA PATTERN 

012610 

012610 012760 000000 000006 #0 ,RMDA(RO) ;LOAD RMDA 

012616 010260 000006 R2,RMDA(RO) ;LOAD RMDA 


012622 016037 000036 001142 RMHR(RO),$BDDAT ;STORE RMHR AT S$BDDAT 


AG FS ASMABAAAAAARAAASAAHAAHAAANASPAAAASSSAASASASSASSSASSSASASSSAISAMQ’ 








CZRMJCO wows DSKLS PRT 1 
09:19 


CZRMJC.P11 


012650 


012652 
012654 


012656 


012656 
012660 


012744 


012750 
012756 
012764 


012770 


013026 


013026 
013034 
013042 


013050 
013056 


21-AUG-78 


005137 
023702 
001404 
010237 
104063 
000402 


006302 
001355 


000004 
012737 


111160 


012760 
012760 
111160 


016037 


012760 
012760 
016037 


042737 
001412 


001142 
001142 


001140 


000012 


000024 
000001 
012720 
012720 


000076 
000000 


000000 
177701 


11 
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001226 


001124 


000010 


000000 
006000 


001142 
001142 


SBDDAT 
$BDDAT ,R2 


40 
R2,$GDDAT 
63 
50$ 
40$: R2 
30$ 
50$: 


;RMHR_ IS COMPLEMENTED 
of 


‘SETUP EXPECTED 
:DO NOT COLLECT ALL ERRORS 


;SHIFT TO NEXT PATTERN 
CONTINUE IF NOT DONE 


FLERE REE EERE AREER ERE REE RRR RERERERE ERE RE REE ER 


T*TEST 12 


CONTROL STATUS 41 TRANSFER TEST 


LL RRR REE REE RHEE EER EERE REE 


TSTl2: 
#12, $TESIN 


#20. ,SICNT 
#1 , SERMAX 
#T12,$LPADR 
#712, $LPERR 
ASTACK, SP 
$BASE ,RO 
TSTQUE ,R1 
R3 


ACLR,RMCS2(RO) 
(R1) ,RMCS2(RO) 


72SET TEST NUMBER IN APT MAIL BOX 


320 ITERATIONS 

;ONE ERROR ALLOWED 
;LOAD LOOP ON TEST ADDRESS 
;LOAD LOOP ON ERROR ADDRESS 


THE STACK POINTER 

UNIBUS ADDRESS OF UUT 

POINTER TO DEVICE 

ERROR INDICATOR 
:CLEAR THE MASSBUS 


MOVB >SELECT UNIT 
WRITE ONES IN RMCS1, BITS 01-05, THEN CLEAR. READ AND 


CHECK FOR S-A-1 BITS. 


MILF76,RMCS1(RO) 
#CLR,RMCS2(RO) 
(R1) ,RMCS2 (RO) 


RMCS1(RO) , SB8DDAT 
caer nen 


$GDDAT 
RO, $BDADR 
ale teat 


5$: 
zWRITE ONES IN RMCS1, BITS 01-05, 


:S-A-1 BITS. 
MILF76,RMCS1(RO) 
#0,RMCS1(RO) 


RMCS1(RO) , SBDDAT 
lemme 


;LOAD RMCS1 


:CLEAR THE MASSBUS 
SELECT UNIT 


STORE RMCS1 AT $BDDAT 


CANT CLEAR RMCS1 


THEN WRITE ZEROS. READ AND CHECK FOR 


;LOAD RMCS1 


;LOAD RMCS1 


STORE RMCS1 AT S$BDDAT 


SEQ 0132 


ARKRAARAAHAAAHRAHAAHRHAAAAHAARAAPAAARAARSPSASRASSSSSSSVSSSIVSSSSSSSSSSageae 
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001140 $GDDAT 
001136 RO, $BD,,DR 
000000 001136 #RMCS1,$BDADR 
;CANT WRITE O'S 


052703 000001 #B1T0,R3 ZSET ERROR FLAG 
RMCS1, THEN ONES, READ AND CHECK S-A-0 BITS. 
012760 000000 #0,RMCS1(RO) ;LOAD RMCS1 
913112 012760 000000 MILF76,RMCS1(RO) LOAD RMCS1 


013120 016037 000000 001142 RMCS1(RO) , SBDDAT STORE RMCS1 AT S$BDDAT 
001142 #*CILF76,$B8DDAT 
001140 #ILF76,$GDDAT 
001142 — ee 


RO, $BDADR 
001136 ARMCS1, $BDADR 
CANT WRITE ONES 


24 
052703 #B1T1,R3 7SET ERROR FLAG 


013172 20$: 
;WRITE A SHIFTING ONE BIT PATTERN IN RMCS1, READ AND CHECK FOR STUCK BITS. 
013172 005703 TST R3 OMIT IF ANY ERRORS 
001035 50$ 
012702 000002 308 #2,R2 zR2 = TEST PATTERN 
010203 R2,R3 7R3 = EXPECTED RESULT, BITS 1-5 
042703 177701 #*CILF76,R3 


013210 012760 000000 000000 #0,RMCS1(RO) ;LOAD RMCS1 
013216 010260 000000 R2,RMCS1(RO) ;LOAD RMCS1 


013222 016037 000000 001142 RMCS1(RO) , SBDDAT STORE RMCS1 AT $BDDAT 
2737 177701 001142 #*CILF76,$BDDAT 
001142 tiene 


001140 R3,$GDDAT 
001136 RO, $BDADR 
000000 001136 A#RMCS1,$BDADR 
25 CANT WRITE SHIFTING ONES 


40$: R2 SHIFT TO NEXT BIT 
30$ CONTINUE IF R2 NOT ZERO 
013270 50$: 


FI III IK ERR ERK 


i*TEST 13 ERROR REGISTER 1 TRANSFER TEST 


DD I I ITI III IIT TTR KI IK REE ER EERE REE ER 


013270 TST13: SCOPE 
013272 012737 000013 MOV #13,$TESIN 3:SET TEST NUMBER IN APT MAIL BOX 


NOP 
000024 MOV #20. ,SICNT 320 ITERATIONS 
013310 112737 000001 MOVB #1, SERMAX ONE ERROR ALLOWED 
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013316 012737 013332 001122 #T13,$LPADR ;LOAD LOOP ON TEST ADDRESS 
012737 013332 001124 #T13,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


001100 STACK , SP + LOAD THE STACK POINTER 
001276 $BASE ,RO ;RO = UNIBUS ADDRESS OF UUT 
001456 TSTQUE ,R1 :R1 = POINTER TO DEVICE 

R R3 [CLEAR ERROR FLAG 
IN RMER1, CLEAR AND CHECK FOR S-A-1 BITS 


013350 177777 000014 #-1,RMER1(RO) ;LOAD RMER1 
013356 000040 000010 AMCLR,RMCS2(RO) ;CLEAR THE MASSBUS 
013364 000010 (R1),RMCS2(RO) ;SELECT UNIT 


013370 000014 001342 RMER1(RO), — ;STORE RMER1 IN INPUT BUFFER 
001342 RMER11 , $BDD 
177760 AC CPAR IRR ILE ILRD, - SBDDAT 
001140 S$GDDAT 
001136 RO, $BDADR 
000014 #RMER1 , SBDADR 
27 CANT CLEAR RMER1 


001342 ; RMER11,$BDDA 
074017 ACCDCKIAE AOE HCRC!HCE !ECH!WCF 1FER>, ,$BDDAT 


$GDDAT 

RO, SBDADR 

ARMER1 , $BDADR 
104030 30 


013737 001342 001142 ‘ RMER11, $BDDAT 
2737. 147777 (001142 #*C<OPI !DTE>, SBDDAT 


30 
001140 $GDDAT 
901136 RO, $BDADR 
000014 001136 . tanita 


013530 


30$: 

zWRITE ONES THEN ZEROS IN RMER1, READ AND CHECK FOR S-A-1 BITS 
013530 012760 177777 000014 #-1,RMER1(RO)  ;LOAD RMER1 

013536 012760 000000 000014 #0,RMER1 (RO) ;LOAD RMER1 


013544 016037 000014 001342 RMER1(RO), — STORE RMER1 IN INPUT BUFFER 
001342 001142 RMER11 , SBODAT 
177770 001142 #AC<RMR!ILF !ILR>, $BDDAT 


001140 
001136 
000014 #RMER , , SBDADR 

000001 #B1T0,R3 SET ERROR FLAG 

001342 : RMER1{ , $BDD 

074017 #CCDCKIAE AOE HCRC!HCE !ECH!UCF !FER>, , SBDDAT 
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6252 013632 005037 001140 CLR $GDDAT 68. 
6253 013636 010037 001136 MOV RO, $BD/DR 68. 
6254 013642 062737 000014 001136 ADD #RMER1, $BDADR 68. 
6255 013650 104033 ERROR 3 68. 
6256 013652 052703 000001 BIS #BITO,R3 SET ERROR FLAG 68: 
6257 013656 6 50$: 68 
6258 013656 013737 001342 001142 MOV RMER11,$BDDAT 68. 
6259 013664 042737 147777 001142 BIC #°C<OPI 'DTE>, $BDDAT 68. 
6260 013672 001412 BEQ 60$ 68: 
6261 013674 005037 001140 CLR $GDDAT 68. 
6262 013700 010037 001136 MOV RO, $BDAD 68 
6263 013704 062737 000014 001136 ADD #RMERT, SBDADR 68 
6264 013712 104034 ERROR 34 68 
6265 013714 052703 030000 BIS #BIT,R3 68 
6266 013720 60$: 68 
aces :WRITE ZEROS THEN ONES IN RMER1,READ AND CHECK FOR S-A-0 BITS 4 
6269 013720 012760 000000 000014 MOV #0,RMER1 (RO) zLOAD RMER1 +4 
$271 013726 012760 177777 000014 MOV #-1,RMER1(RO)  ;LOAD RMER1 48 
6273 013734 016037 000014 001142 MOV RMERT (RO) « ¢SBDDAT STORE RMER1 AT $BDDAT 48 
6274 013742 012737 177777 001140 MOV #-1,$GDDA 68 
6275 013750 023737 001140 001142 CMP $GDDAT, SBDDAT 68 
6276 013756 001410 BEQ 70$ 68 
6277 013760 010037 001136 MOV RO, $BDADR 68 
6278 013764 062737 000014 001136 ADD #RMER1, $BDADR 68 
6279 013772 104035 ERROR 35 68 
013774 052703 000002 BIS #BIT1,R3 68 

6281 014000 70$: 68 
6282 sWRITE A SHIFTING 1 BIT IN RMER1 AND CHECK FOR STUCK BITS 68 
6283 “NOTE: DONT TEST UNSAFE OR PARITY 68 
6284 014000 005703 TST R3 :SKIP THIS PART IF ANY ERRORS 68 
6285 014002 001045 BNE 120$ 68 
6286 014004 012702 000001 MOV #1,R2 zR2 = TEST PATTERN 68 
6287 014010 80$: 68 
6288 014010 012760 000040 000010 MOV #CLR,RMCS2(RO) ;CLEAR THE MASSBUS 68 
6289 014016 111160 000010 MOVB (R1),RMCS2(RO) ;SELECT UNIT - 
ot 014022 010260 000014 MOV R2,RMER1 (RO) ;LOAD RMER1 4 
6293 014026 016037 000014 001142 MOV RMER1 (RO), $BDDAT STORE RMER1 AT $BDDAT 68 
6294 014034 032702 000010 BIT #PAR ,R2 DONT TEST PAR = 0 68 
6295 014040 001003 BNE 90$ 68 
6296 014042 042737 000010 001142 BIC #PAR, SBDDAT 68 
6297 014050 032702 040000 90$: BIT #UNS ,R2 DONT TEST UNS = 0 68 
6298 014054 001003 BNE 100$ 68 
6299 014056 042737 040000 001142 BIC #UNS , S$BDDAT 68 
6300 014064 020237 001142 100$: CMP R2,$BDDAT 68 
6301 014070 001410 BEQ 110$ 68 
6302 014072 010237 001140 MOV R2,$GDDAT 68 
6303 014076 010037 001136 MOV RO, $BDADR 68 
6304 014102 062737 000014 001136 ADD #RMER1, $BDADR 68 
o> 014110 104036 ERROR 36 . 
6307 014112 006302 110$: ASL R2 SHIFT TO NEXT BIT 68 
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014114 001335 BNE 80$ sCONTINUE IF R2 NOT ZERO 
014116 120$: 


SERRE RRR REE ERE AEE ERR EREREERERERERRRERRREREEE REED 


s*TEST 14 ERROR REGISTER 2 TRANSFER TEST 


FDRG GISISISISIOISISIDIOIIOISISISISIEIDIOIOIIOIOIUIUIOIOIIOIOIOIOR TOIT TTI IIT AIA SISA SSI SSM 
014116 000004 TST14: 
014120 012737 000014 001226 #14,$TESIN 72SET TEST NUMBER IN APT MAIL BOX 


014126 
000024 001120 #20. ,S1CNT 320 ITERATIONS 
000001 #1 , SERMAX ;ONE ERROR ALLOWED 
014160 #T14,$LPADR ;LOAD LOOP ON TEST ADDRESS 
014160 001124 #T14,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


001100 ASTACK, SP LOAD THE STACK POINTER 
$BASE ,RO ;RO = UNIBUS ADDRESS OF UUT 
TSTQUE ,R1 [R1 = POINTER TO DEVICE 
R3 SRESET ERROR FLAGS 
001136 RO,$BDADR [SETUP BAD ADDRESS 
000042 001136 ARMER2 , SBDADR 
014210 001140 SGDDAT ;SETUP EXPECTED DATA 


FLERE REE EERE EEE EERE REE EREREERER EERE EERE REET REED 


[WRITE ONES IN RMER2, CLEAR AND CHECK FOR S-A-1 BITS 
014214 012760 177777 000042 MOV #-1,RMER2(RO) ;LOAD RMER2 


014222 012760 000040 000010 MOV ACLR,RMCS2(RO) ;CLEAR THE MASSBUS 
014230 111160 000010 MOVB (R1),RMCS2(RO) ;SELECT UNIT 


014234 016037 000042 001370 MOV RMER2 (RO) ,RMER21 STORE RMER2 IN INPUT BUFFER 


: TEST UNUSED 2 i aaat ZERO-FAILURE ON IF 
014242 013737 001370 001142 RMER2 1 , $B 
042737 176210 001142 P-CXNUERD, SADDAT 
001403 10$ BRANCH IF NO ERROR 
104044 OR 44 UNUSED BITS NOT ZERO 
052703 000001 #BITO,R3 SET ERROR FLAG 


; TEST ‘‘OPE*’, ot tol wee ZERO-FAILURE ON CS, IF 
013737 001370 RMER2I , $8 
143777 #C<OPE 'IVC!LSC>, S$BDDAT 
20$ CH IF NO ERROR 
OR 45 = CANT CLEAR OPE, IVC, LSC 
052703 000001 #B1TO,R3 SET ERROR FLAG 


014312 
: TEST 'LBC’*, ‘DPE’’ FOR ZERO-FAILURE ON DS, IF 
014312 013737 001370 001142 RMER21 , $BDDAT 
042737 175767 001142 #°C<LBC 'DPE>, SBDDAT 
faare 30$ ;BRANCH IF NO ERROR 
04046 ROR 46 :CANT CLEAR LBC, DPE 
033703 000001 #B1TO,R3 SET ERROR FLAG 


DLA RARE AEE ARARARAARARAAAAARAARAERERERRERAE AEE 
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sWRITE ONES IN RMER2 THEN WRITE ZEROS AND CHECK FOR S-A-1 BITS. 
014336 012760 177777 000042 MOV #-1,RMER2(RO) ;LOAD RMER2 
014344 012760 000000 000042 MOV #0 ,RMER2 (RO) ;LOAD RMER2 
014352 016037 000042 001370 MOV RMER2 (RO) ,RMER2! STORE RMER2 IN INPUT BUFFER 


; TEST ‘‘OPE"’, ot te y sie ZERO-FAILURE ON CS, IF 
014360 013737 001370 001142 MOV RMER2I, 
014366 042737 143777 001142 BIC PC COPEIVC'LSC>, $BDDAT 
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6375 014374 001403 BEQ 40$ ;BRANCH IF NO ERROR 
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6376 014376 104047 ERROR 47 CANT WRITE ZEROS 
014400 052703 000001 BIS #BITO,R3 SET ERROR FLAG 


014404 40$: 
: TEST "LBC’’, *DPE'’ FOR ZERO-FAILURE ON DS, IF 


014404 013737 001370 001142 ~° MOV RMER21, $BDDAT 





K 11 
CZRMJCO RMO3/2 DSKLS PRT 1 MACY11 30A(1052) 21-AUG-78 09:22 PAGE 140 SEQ 0140 
CZRMJC.P11 21-AUG-78 09:19 114 ERROR REGISTER 2 TRANSFER TEST 


014412 175767 001142 BIC #*C<LBC :DPE>, $BDDAT 
BEQ 50$ 
104050 ERROR 50 ; CAN 
052703 000901 508 BIS #BITO,R3 [SET ERROR FLAG 


5 LARA EKER EEEREREEREREEEREEEEEREREKEREERAEREREREREREER REREAD 


[WRITE ZEROS IN RMER2 THEN WRITE ONES AND CHECK FOR S-A-O BITS. 
012760 000000 000042 MOV #0 ,RMER2 (RO) LOAD RMER2 
014436 012760 177777 000042 MOV #-1,RMER2(RO) ;LOAD RMER2 


014444 016037 000042 001370 MOV RMER2 (RO) ,RMER2ZI STORE RMER2 IN INPUT BUFFER 
; TEST UNUSED BITS FOR _ZERO-FAILURE ON IF 
014452 013737 001370 001142 RMER21 , $B 
176210 001142 P-CXNUERD, SADDAT 
60$ BRANCH IF NO ERROR 
104044 OR 44 ;UNUSED BITS NOT ZERO 
052703 BIS #BITO,R3 ;SET ERROR FLAG 


014476 
; TEST USED BITS FOR ONE-FAILURE ON IF 

014476 013737 001142 MOV RMER21 , $BDDAT 

001142 #XNUER2 , SBDDAT 

001140 #*CXNUER2 , SGDDAT 

001142 S$GDDAT , SBDDAT 

70$ ;BRANCH IF NO ERROR 
CANT WRITE ONES 


104051 51 
052703 708 #B1T1,R3 ;SET ERROR FLAG 


YIYVIYIPYIYINIYIYIYNIYYIYIAVAVYIAIYY 
ala Cl ta Al a La Lal Lod Co PO RO PRO RPO RPP) St tt I 


FLARE EKER KERR EERE REREREERE ERA 
*]F NO PREVIOUS ERROR, TEST BIT INTERFERENCE WITH SHIFTING ONE BIT. 
005703 TST R3 :ANY ERRORS? 
001044 BNE 
012702 Nes MOV ‘RD BATA PATTERN 
012760 ; #CLR,RMCS2(RO) ;CLEAR THE MASSBUS 
(R1).RMCS2(RO) :SELECT UNIT 


R2,RMER2 (RO) LOAD RMER2 


001142 RMER2 (RO) , SBDDAT STORE RMER2 AT S$BDDAT 
#SKI,R2 ‘tee BEING SET? 


$ E 
001142 #SKI,$BDDAT :DONT TEST SKI 4 5 ZERO 
: #DVC,R2 ‘test BEING SET? 


BN 100$ 
001142 B #DVC,$BDDAT :DONT TEST DVC FOR ZERO 


001140 j ; UNUSED ott. SHOULD BE ZERO 
001142 oeneAr , $BDDAT ZANY ,ERRORS?? 


52 CAN WRITE SHIFTING ONES 
R2 SHIFT TO NEXT DATA BIT 


stata 


LAL AL AL AL AL ALA 
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014650 
014652 


014652 
014654 


014742 
014750 
014756 
014764 
014766 
014774 
015000 


015006 
015010 


015010 
015012 


015020 


015102 


001336 


000004 
012737 


000004 
012737 


000015 


cones 


00000 
014714 
014714 


177777 


000032 
177577 


000200 
001136 
000032 


000016 


000024 


000001 
015052 
015052 


001226 


001120 
001131 
001122 
001124 


000010 


000032 


001142 
001142 


001140 
001136 


30A(1052) 
T14 


BNE 80$ 
120$: 
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ERROR REGISTER 2 TRANSFER TEST 


CONTINUE IF NOT DONE 


141 


PR tk hah tk kak Satake hehehe lekalahaheletetalahalaiahahelelahaheheieleiehelelelsiaielsleiaheheleiaiaieielcleieieieieleicielel 


SRTEST 15 


CLEAR OFFSET STUCK ACTIVE TEST 


RRR KEKE 


TST15: 
#15, $TESIN 


#20. ,SICNT 
#1, SERMAX 

#715, $LPADR 
#T15,$LPERR 


ASTACK , SP 
$BASE ,RO 
TSTQUE ,R1 
#CLR.RMCS2(RO) 
(R1) ,RMCS2 (RO) 


#-1 ,RMOF (RO) 


RMOF (RO) , SBDDAT 
ata aaa 


#OFD,$GDDAT 
RO, $8DADR 
#RMOF , SBDADR 
172 

10$: 


7zSET TEST NUMBER IN APT MAIL BOX 


320 ITERATIONS 
;ONE ERROR ALLOWED 


;LOAD LOOP ON TEST ADDRESS 
;LOAD LOOP ON ERROR ADDRESS 


;LOAD THE STACK POINTER 
[RO = UNIBUS ADDRESS OF UUT 
zR1 = POINTER TO DEVICE 

= CLEAR THE MASSBUS 


ZSELECT UNIT 

LOAD RMOF 

STORE RMOF AT S$BDDAT 
;BRANCH IF OFD IS A ONE 
SETUP ERROR MESSAGE 


;CANT SET OFD BIT 
sEND OF TEST 


J LEAR REAR ERR EERE EERE EEKRERRER ERK REE RK 


s*TEST 16 


OFFSET REGISTER TRANSFER TEST 


RRR RRR RRR EK EERE EERE REE ERE RRR RE EKER EEE RRR RE RE E KH 


TST16: 
#16,$TESTIN 


#20. ,SICNT 
#1, SERMAX 

#T16,$LPADR 
#716, $LPERR 


STACK, SP 
$BASE RO 
TSTQUE ,R1 
R3 

RO, $BDADR 


#RMOF , SBDADR 
$GDDAT 


72SET TEST NUMBER IN APT MAIL BOX 


320 ITERATIONS 

;ONE ERROR ALLOWED 
;LOAD LOOP ON TEST ADDRESS 
;LOAD LOOP ON ERROR ADDRESS 


;LOAD THE STACK POINTER 
RO = UNIBUS ADDRESS OF UUT 


= POINTER TO DEVICE 


RESET ERROR FLAGS 
SETUP BAD ADDRESS 


SETUP EXPECTED DATA 


DLR EEE EERE EERE EER ERE RE REE RE EERE RE RRR 


SEQ 0141 
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sWRITE ONES THEN ZEROS IN RMOF AND CHECK FOR S-A-1 BITS. 
015106 012760 177777 000032 MOV #-1 ,RMOF (RO) ;LOAD RMOF 
015114 012760 000000 000032 MOV #0 ,RMOF (RO) ;LOAD RMOF 


015122 016037 000032 001360 MOV RMOF (RO),RMOFI ;STORE RMOF IN INPUT BUFFER 
; CHECK UNUSED BITS OF RMOF FOR ZERO 
013737 001360 001142 MOV FI,$8 GET UNUSED BITS 
737 016200 001142 F ,S8DDAT 
001403 0$ ;BRANCH IF NO ERROR 
104053 OR 53 UNUSED BITS NOT ZERO RMOF 
052703 000001 #BITO,R3 SET ERROR FLAG 


CHECK USED BITS OF teed 


015154 


; FOR ZERO 
015154 013737 001360 MOV RMOF I , SBDDAT GET USED BITS 
2737 161577 #XNUOF , SBDDAT 
20$ ;BRANCH IF NO ERROR 
54 ;USED BITS RMOF S-A-1 
052703 000001 #B1TO,R3 SET ERROR FLAG 


Be) RRR REE EKEREKRKEEEEKEERERREEEEKKEEKEKE 


WRITE ZEROS THEN ONES ON RMOF AND CHECK FOR S-A-O BITS. 
012760 000000 000032 MOV #0 ,RMOF (RO) ;LOAD RMOF 
015206 012760 177777 000032 MOV #-1 ,RMOF (RO) LOAD RMOF 


015214 016037 000032 001360 MOV RMOF (RO) ,RMOFI ;STORE RMOF IN INPUT BUFFER 
: CHECK UNUSED BITS OF RMOF FOR ZERO. 
015222 013737 001360 001142 V RMOF I , SBDDAT ;GET UNUSED BITS 
016200 001142 #*CXNUOF , SBDDAT 
30$ ;BRANCH IF NO ERROR 
104053 ROR 53 UNUSED BITS OF RMOF NOT ZERO 
052703 #B1T0,R3 


015246 
; CHECK USED BITS OF RMOF FOR ONE, 
015246 013737 001142 MOV RMOF I , SBDDAT :GET USED BITS 
2737 #XNUOF , $BDDAT 
#FMTIGIECI {HCI !OFD, SGDDAT 


SGDDAT , $BDDAT 
40$ ;BRANCH IF NO ERROR 
55 USED BITS RMOF S-A-0 
; #B1T1,R3 

40$: 


DIBA UISIOIISIIUIIDIISIOIIOISISISIIDIOIIIOIOIDIOIIOIOIDIOIIOIOIDIOIIDIIDIDIIDIOIIOI DIODE IID 
;1F NO PREVIOUS ERRORS, TEST RMOF WITH iit Tine ONE BIT PATTERN. 
TST R3 ; ERROR?? 
BNE 70$ svES!: 
2 012702 MOV #1,R2 [STARTING DATA PATTERN 
015316 50$: 


015316 012760 000032 MOV #0,,RMOF (RO) ;LOAD RMOF 
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015324 000032 R2,RMOF (RO) ;LOAD RMOF 


000032 001142 RMOF (RO). SBDDAT ;STORE RMOF AT $BDDAT 
MOV 7SETUP EXPECTED RESULT 
161577 PXNUOF , R3 [CLEAR UNUSED BITS 
001142 MP R3, SBDDAT ZCOMPARE EXPECTED of RECEIVED 
. 60$ BRANCH IF NO ERROR 
001140 R3,$GDDAT [LOAD EXPECTED 
56 [CANT WRITE SHIFTING 1 BIT 
608: R2 ZSHIFT TO NEXT BIT 
50$ [CONTINUE IF NOT DONE 


70$: 


SII RRR RHR EERE REE KEE EEE EERE 


S*TEST 17 SERIAL NUMBER TEST 


FICCI IIIT IOI IIR ITT ITT IIASA IAAI ASSIASSSASSSSASA SAS 
000004 TST17: SCOPE 
015366 012737 000017 001226 MOV #17, $TESIN 73SET TEST NUMBER IN APT MAIL BOX 


015374 
000024 001120 - gig 320 ITERATIONS 
000001 #1 ,SERMA ;ONE ERROR ALLOWED 
015426 aTi7, SLPADR ;LOAD LOOP ON TEST ADDRESS 
015426 #T17.$LPERR LOAD LOOP ON ERROR ADDRESS 


AMSTACK , SP LOAD THE STACK POINTER 
SE ,RO ;RO = UNIBUS ADDRESS OF UUT 


$BA 
TSTQUE ,R1 :R1 = POINTER TO DEVICE 
AMCLR,RMCS2(RO) ;CLEAR THE MASSBUS 
(R1) ,RMCS2(RO) ;SELECT UNIT 
RO, $BDADR ;SETUP REGISTER ADDRESS FOR TYPEOUT 
#RMSN, S$BDADR 
012702 MOV #25. ,R2 ;READ RMSN 25 T 
;READ RMSN AND USE THE RESULT AS EXPECTED VALUE 


014037 Ae MOV RMSN(RO),$GDDAT :STORE RMSN AT $GDDAT 
;READ RMSN AND COMPARE WITH INITIAL VALUE 


016037 MOV RMSN(RO) ,SBDDAT ;STORE RMSN AT SBDDAT 


CMP $GDDAT , SBDDAT 
BEQ 20$ ;BRANCH IF SERIAL NUMBER CONSISTENT 
015520 ERROR 136 ;SERIAL NUMBER INCONSISTENT 


20$: 
zDECREMENT COUNT AND CONTINUE IF NOT DONE 
015520 DEC R2 


015522 100366 BPL 10$ 
015524 30$: END OF TEST ; 


LL ARERR REE ERE EERE EERE REE REE 


i*TEST 20 CONTROL BUS PARITY DETECTION TEST 


4 


MRSS SSSS£ALA LESS SESSE SESE SESE SESE SERRA RE RARER ALARA RAR R RRR R DDD OI 


015524 TST20: SCOPE 
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015526 


015724 


015724 
015732 
015740 


21-AUG-78 


012737 


012760 
111160 


016037 
016037 


013760 
013760 
016037 

2737 


005737 


09:19 
000020 


001440 
000040 
000010 
000014 


000042 
177767 


001412 
001440 
000014 
177767 
001140 
000020 


001440 


MACY11 


001412 
001440 


000010 


001142 
001370 
001142 


001136 
001370 


000010 
000036 
001142 
001142 
001142 


001412 
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MOV #20,$TESTN 3;SET TEST NUMBER IN APT MAIL BOX 


#20. ,SICNT ;20_ITERATIONS 

#1, SERMAX ONE ERROR ALLOWED 
#120,$LPADR ;LOAD LOOP ON TEST ADDRESS 
#T20,$LPERR LOAD LOOP ON ERROR ADDRESS 


ASTACK , SP LOAD THE STACK POINTER 
$BASE ,RO ;RO = UNIBUS ADDRESS OF UUT 
MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
;SETUP FOR FIRST TEST LOOP (NO ERROR) 
CLR ay * 3‘ PAR’’ SHOULD BE ZERO 
(R1) ,RMCS20 ZSETUP RMCS2 VALUE 
#-CUNTMSK RMCS20 
#1 ,RMHRO zs INITIALIZE DATA PATTERN 
BR 6$ :SKIP INCREMENT FIRST TIME 
5$: RMHRO SHIFT 70 NEXT PATTERN 


6$: 
CLEAR AND VERIFY THAT ‘PAR'' IS RESET 
MOV AMCLR,RMCS2(RO) ;CLEAR THE MASSBUS 
(R1).RMCS2(RO) SELECT UNIT 


RMER1 (RO) , SBDDAT ;STORE RMER1 AT SBDDAT 
RMER2 (RO) ,RMER21 3 STORE RMER2 IN INPUT BUFFER 


#°CPAR, $BDDAT DID “'PAR'’ RESET? 
20$ oe 


T20: 


YE 
RO, $BDADR ‘SETUP REGISTER ADDRESS 
ARMER1 , SBDADR 
ae tA, DPE’ SET?? 


67 CANT CLEAR “PAR 
BR 50$ 
10$: - 70 CANT CLEAR ‘PAR"', ‘'DPE"' 


50$ 
20$: 


WRITE TEST PATTERN AND VERIFY ‘PAR'’ STATUS 
RMCS20,RMCS2(RO) ;LOAD RMCS2 
RMHRO,RMHR(RO) ;LOAD RMHR 
RMER1 (RO) , SBDDAT STORE RMER1 AT S$BDDAT 
#*CPAR , $BDDAT 
Pant eee ates: ‘PAR’ CORRECT ?? 
et Aas SHOULD PAR’ BE SET? 
71 i BAR’ SHOULD NOT BE SET 

BR 50$ 
30$: 72 :'PAR'' SHOULD BE SET 


50$ SKIP TO NEXT 
3GO TO NEXT PATTERN 
40$: TST RMHRO 31S DATA PATTERN COMPLETE?? 


Po PnP Ps Ps FP Pn Ps Pn Ps PPD Pi Pins Pi Pn Pn PF Ps Ps Pin et Ps Pn Ps PDS Pi Ps PP PsP PPP Pi i Ps Pe PP Ps i Ps PP | 
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016010 


016050 


016140 


016140 
016144 


016144 
016152 


016156 


016164 
016172 


016212 
016214 


016214 
016220 


000004 
012737 


013701 


012737 
005037 
000402 


006337 
012760 
111160 
013760 


016037 


005737 
001347 


000020 


000020 
000010 
000001 


000021 
cones 


00000 
016110 
016110 


001440 
000040 
000010 
001440 
000036 


000000 
157777 


001440 


MACY11 30A(1052) 
T20 


001412 


001440 


001226 


001120 
001131 
001122 
001124 


001440 


000010 
000036 
001364 


001142 
0u1142 


C 

21-AUG-78 09:22 
BNE 5$ 

BIT #PAT ,RIICS20 
BNE 50$ 

SETUP FOR SECOND TEST LOOP 

BIS -RMCS20 


12 
PAGE 145 SEQ 0145 


CONTROL BUS PARITY DETECTION TEST 


3NO!! 
z18 TEST COMPLETE?? 


(ERROR) 

TURN ON BAD PARITY 
SEXPECT ERROR 

eT tae DATA PATTERN 
START 


e 


END OF TEST 


FI I III IKI I I RRR IRE TIERRA 


z*TEST 21 CONTROL BUS 


PARITY GENERATION TEST 


SD III III III II III III ISI II III II II III II IAI IIIS IN SISISSSSISSSS SSIS 


TST21: 
#21,$TESIN 


#20. ,SICNT 
#1 , SERMAX 
#T21,$LPADR 
#T21,$LPERR 


ASTACK, SP 
$BASE RO 
TSTQUE ,R1 
(NO ERROR) 
# 


1, RMHRO 
SGDDAT 
20$ 


;SETUP FOR TEST 
MOV 
CLR 


10$: 
: SHIFT DATA PATTERN 
ASL RMHRO 


20$: 
:CLEAR, THEN TRANSFER DATA TO RMO3 
MOV A#CLR,RMCS2(RO) 
(R1) ,RMCS2(RO) 


RMHRO , RMHR (RO) 


MOVB 


7zSET TEST NUMBER IN APT MAIL BOX 


320 ITERATIONS 

ONE ERROR ALLOWED 
;LOAD LOOP ON TEST ADDRESS 
;LOAD LOOP ON ERROR ADDRESS 


;LOAD THE STACK POINTER 
[RO = UNIBUS ADDRESS OF UUT 
3R1 = POINTER TO DEVICE 


: INITIALIZE DATA PATTERN 
MCPE SHOULD BE ZERO 
“DONT SHIFT FIRST TIME 


;CLEAR THE MASSBUS 
SELECT UNIT 


;LOAD RMHR 


MOV 
; TRANSFER DATA TO RH, VERIFY NO *MCPE'' ERROR 


RMHR (RO) , RMHRI 


RMCS1(RO) , SBDDAT 
 * tpiciemonate 


30 
73 
40$ 


30$: 

:GO TO NEXT PATTERN 
TST RMHRO 
BNE 


STORE RMHR IN INPUT BUFFER 


STORE RMCS1 AT $BDDAT 
a PARITY DETECTED?? 


zNO!! 
;BAD PARITY DETECTED BY RH 


;DONE ALL PATTERNS?? 
sNO!! 
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016222 40$: END OF TEST 


SII I III IIT IIIT IT TIO TOTO TOR TOTO TOTS ITSO III IOI IIIS IA II IN 


s*TEST 22 RMDA,RMDC FAULT TEST 


FZ III III III IIR IR IR TIT II II IIIT SII III IIE 


016222 000004 TST22: 
016224 012737 000022 001226 MO #22, $TESIN 3;SET TEST NUMBER IN APT MAIL BOX 


016232 
000024 001120 #20. ,SICNT 320 ITERATIONS 
000001 #1, SERMAX ;ONE ERROR ALLOWED 
016264 #T22,$LPADR ;LOAD LOOP ON TEST ADDRESS 
016264 001124 #T22,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


001100 : ASTACK,SP ;LOAD THE STACK POINTER 
001276 $BASE ,RO “RO = UNIBUS ADDRESS OF UUT 
001456 TSTQUE ,R1 *R1 = POINTER TO DEVICE 
000040 000010 #CLR-RMCS2(RO) =CLEAR THE MASSBUS 
111160 000010 (R1).RMCS2(RO) :SELECT UNIT 
:WRITE ZEROS, THEN ONES IN RMDA,RMDC-READ AND TEST FOR S-A-0 
016312 012760 000000 000006 #0,.RMDA(RO) ZLOAD RMDA 
016320 012760 000000 000034 #0,.RMDC (RO) ZLOAD RMDC 


016326 012760 177777 000006 #-1 ,RMDA(RO) LOAD RMDA 


016334 012760 177777 000034 #-1 ,RMDC (RO) ;LOAD RMDC 


016342 016037 000006 001334 RMDA(RO),RMDAI ;STORE RMDA IN INPUT BUFFER 


016350 016037 000034 001362 RMDC(RO),RMDCI ;STORE RMDC IN INPUT BUFFER 
meer 177777 + 001334 —— a Rew, ANY REGISTER ALL ONES?? 


10$ 
016366 176000 001362 AXNUDC ,RMDCI SET “UNUSED BITS 
016374 177777 + 001362 #-1,RMDCI 
016402 BEQ 10$ VES! : 
016404 42 “RMDC AND RMDA S-A-0 


016406 10$: 


© RA IIIT TI KKK RIKER KEE KEKE KEKE KEKKEKKK 


SRTEST 23 DISK ADDRESS TRANSFER TEST 


FD PII III IIIT IO ITI IOI IOS IOS IIIT II II II II IISA II IASI IAI SI SII SIS IASI SSIS SIS SIN 
TST23: 
000023 001226 MO #23, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 


000024 001120 #20. tk 320 ITERATIONS 

000001 #1, $ERMA ;ONE ERROR ALLOWED 

016450 MO #123, SL PADR ;LOAD LOOP ON TEST ADDRESS 
012737 016450 001124 #T23.$LPERR ;LOAD LOOP ON ERROR ADDRESS 
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T23: 
ASTACK,SP sLOAD THE STACK POINTER 
$BASE ,RO =RO UNIBUS ADDRESS OF UUT 
TSTQUE ,R1 zR1 POINTER TO DEVICE 
R3 ;R3 = ERROR INDICATOR 

000010 ACLR,RMCS2(RO) ;CLEAR THE MASSBUS 
111160 MOVB (R71) ,RMCS2(RO) = SELECT UNIT 
;WRITE ONES IN RMDA, THEN WRITE ZEROS, READ BACK AND CHECK FOR S-A-1 BITS 


012760 177777 000006 #-1 ,RMDA(RO) ;LOAD RMDA 
012760 000000 000006 #0,RMDA(RO) ;LOAD RMDA 


016037 000006 001142 MOV RMDA(RO),$BDDAT ;STORE RMDA AT S$BDDAT 
5737 001142 DDAT 


001140 

001136 ‘ 

000006 001136 

104020 2 
016550 052703 000001 BIS #B1T0,R3 SET ERROR FLAG 
RMDA, THEN WRITE ONES, READ BACK AND CHECK FOR S-A-O BITS 

016554 
016554 012760 000000 000006 #0,RMDA(RO) ;LOAD RMDA 


016562 012760 177777 000006 #-1 ,RMDA(RO) ;LOAD RMDA 


016570 016037 000006 001142 RMDA(RO) ,$BDDAT ;STORE RMDA AT $BDDAT 
001142 177777 plat 


$ 
177777 + 001140 4-1 ,$GDDAT 
001136 RO, $BDADR 
000006 001136 D ~ rreimeaea 


2 
000002 BIS #BIT1,R3 ;SET ERROR FLAG 
ai a lene BIT PATTERN IN RMDA, READ, AND CHECK FOR STUCK BITS 


;OMIT BIT TEST IF ANY ERROR 
BNE 50$ 


012702 000001 308 MOV #1,R2 ;R2 = TEST PATTERN 


012760 000000 000006 #0,.RMDA(RO) ;LOAD RMDA 
010260 000006 R2,RMDA(RO) LOAD RMDA 


016037 000006 001142 RMDA(RO) ,SBDDAT ;STORE RMDA AT S$BDDAT 
001142 $BDDAT ,R2 
40$ 
001140 R2,$GDDAT 
001136 RO, $BDADR 
000006 001136 D eves. seen 


Re SHIFT TO NEXT BIT 
30$ CONTINUE IF R2 NOT ZERO 
016716 
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6829 
6830 LL RARER EAE EERRRRREE SRRARAAAAAEAAAAAAAAARARR RRR ERR R EERE ES SD 
eth eTEST 24 DESIRED CYLINDER TRANSFER TEST 
6833 J LURE REE REREREE ARERR REE ERE ERE EERRERERRERERRERRERR 
6834 016716 000004 TST24: SCOPE 
oss? 016720 012737 000024 001226 MOV #24, $TESTN 72SET TEST NUMBER IN APT MAIL BOX 
6837 016726 000240 NOP 
6838 016730 012737 0900024 001120 MOV #20.,$1CNT 320 ITERATIONS 
6839 016736 112737 000001 001131 MOVB #1, SERMAX TONE ERROR ALLOWED 
6840 016744 012737 016760 001122 MOV #124,$LPADR ;LOAD LOOP ON TEST ADDRESS 
oo) erates 012737 016760 001124 i MOV #724,$LPERR ;LOAD LOOP ON ERROR ADDRESS 
6843 016760 012706 001100 “MOV #STACK, SP :LOAD THE STACK POINTER 
6844 016764 013700 001276 MOV $BASE RO :RO = UNIBUS ADDRESS OF UUT 
6845 016770 013701 001456 MOV TSTQUE ,R1 7R1 = POINTER TO DEVILE 
6846 016774 005003 CLR R3 *RESET ERROR FLAGS 
6847 016776 012760 000040 000010 MOV ACLR,RMCS2(RO) :CLEAR THE MASSBUS 
6848 017004 111160 000010 MOVB (R1),RMCS2(RO) ;SELECT UNIT 
6849 017010 005037 001140 CLR $GDDAT LOAD EXPECTED 
6850 017014 010037 001136 MOV RO, $BDADR LOAD REG ADDRESS 
ons} 017020 062737 000034 001136 ADD A#RMDC , SBDADR 
7 WRITE ONES IN RMDC AND VERIFY THAT UNUSED BITS ARE ZERO 
6855 017026 012760 177777 000034 MOV #-1,RMDC (RO) LOAD RMDC 
6857 017034 016037 000034 001142 MOV RMDC(RO),$BDDAT ;STORE RMDC AT $BDDAT 
6858 017042 042737 001777 001142 BIC #*CXNUDC , SBDDAT CLEAR ALL USED BITS 
6859 017050 001403 BEQ 5$ “BRANCH IF NO ERROR 
6860 017052 104134 ERROR 134 :UNUSED BITS OF RMDC NOT ZERO 
6861 017054 052703 000001 RBIS #BITO,R3 SET ERROR FLAG 
6862 017060 5$: 
6863 WRITE ONES IN RMDC, THEN WRITE ZEROS, READ AND CHECK FOR S-A-1 BITS 
6865 017060 012760 177777 000034 MOV #-1,RMDC (RO) LOAD RMDC 
6867 017066 012760 000000 000034 MOV #0,RMDC (RO) LOAD RMDC 
6869 917074 016037 000034 001142 MOV RMDC(RO),$BDDAT ;STORE RMDC AT $BDDAT 
6870 017102 042737 176000 001142 BIC #XNUDC,$BDDAT :CLEAR UNUSED BITS 
6871 017110 001403 BEQ 10$ :BRANCH IF NO ERROR 
6872 017112 104037 ERROR 37 CANT WRITE ONES RMDC 
6873 017114 052703 000001 BIS #BITO.R3 *SET ERROR FLAG 
6874 017120 10$: 
oer WRITE ZEROS, THEN ONES IN RMDC, READ AND CHECK FOR S-A-0 BITS 
6677 017120 012760 000000 000034 MOV #0, RMDC (RO) ;LOAD RMDC 
— 017126 012760 177777 000034 MOV #-1,RMDC (RO) LOAD RMDC 
6881 017134 016037 000034 001142 MOV RMDC(RO),$BDDAT ;STORE RMDC AT $BDDAT 
6882 017142 052737 176000 001142 BIS #XNUDC,$BDDAT  ;SET UNUSED BITS 
6883 017150 012737 177777 001140 MOV #-1,$GDDAT LOAD EXPECTED RESULT 


6884 017156 023737 001140 001142 CMP $GDDAT,$BDDAT ;1S RMDC ALL ONES ?? 
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BEQ 208 ses 32 
0 ERROR 40 
052703 BIS #B1T1,R3 SET ERROR FLAG 
017174 . 208: 
OMIT a TEST IF _ANY ERRORS 
017174 005703 TST R3 


001026 BNE 60$ 
012702 000001 MOV #1,R2 3R2 = TEST PATTERN 


30$: 
: TEST RMDC WITH SHIFTING ONE BIT 
012760 000000 #0 ,RMDC (RO) ;LOAD RMDC 
017212 010260 000034 R2,RMDC (RO) ;LOAD RMDC 
017216 010203 R2,R3 :R3 = EXPECTED RESULT 
017220 042703 176000 #XNUDC ,R3 ;CLEAR ANY UNUSED BITS 


017224 016037 000034 001142 RMDC(RO),$BDDAT ;STORE RMDC AT $BDDAT 
001142 i 


$ 
001140 ata 
017246 60$ SKIP TO NEXT 


017250 006302 50$: R2 SHIFT TO NEXT BIT 
017252 30$ CONTINUE IF R2 NOT ZERO 


017254 60$: 


WEARER ESRRAAAARALASLLASASARALE SESE RAR SASS RA SARA ARS ARRAS AAS SSS SD 


T*TEST 25 ILLEGAL REGISTER TEST 


DPSS UII OOIIOIDIOIDIOIOIDISIIOIIDIIDIOIIIIUIDIDIOIOIUIOIUIOIIOIIUIOIUIUIOIUUIUOIUOIIUIOIUDI In 
017254 000004 TST25: 
012737 000025 001226 #25, $TESIN 32SET TEST NUMBER IN APT MAIL BOX 


000240 

012737 000024 001120 #20. ,SICNT 3:20 ITERATIONS 

112737 000001 001131 #1, SERMAX ;ONE ERROR ALLOWED 
012737 017316 001122 #T25,$LPADR ;LOAD LOOP ON TEST ADDRESS 
012737 017316 001124 #T25,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


MSTACK,SP ;LOAD THE STACK POINTER 
$BASE ,RO ;RO = UNIBUS ADDRESS OF UUT 
TSTQUE ,R1 :Rl = POINTER TO DEVICE 
SGDDAT "*ILR'' SHOULD BE ZERO 
012702 108: #0,R2 “R2=REGISTER INDEX 
LRAT RR EERE EERE Re 
[CLEAR AND VERIFY THAT “‘ILR'' STATUS IS ZERO 
012760 000040 000010 MOV MCLR,RMCS2(RO) ;CLEAR THE MASSBUS 
017350 111160 (R1),RMCS2(RO) ;SELECT UNIT 


017354 016037 000014 001142 RMER1 (RO) , SBDDAT STORE RMER1 AT $B8DDAT 
177775 001142 #*CILR,$BDDAT 
BRANCH IF ILR_ IS RESET 


0$ 
017372 001140 $GDDAT SETUP GOOD DATA, REG ADR 
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017376 001136 RO, $BDADR 
000014 001136 #RMER1 , SBDADR 
64 ;CANT CLEAR ILR 


17414 

PIOUS IOI III IIUIOR RIO I TOI I ITO IIIT RIO i nti tt 
“WRITE THE REGISTER (INDEX=R2) AND_TEST ILR STATUS 

017414 MOV RO,R3 ;R3=REG ADDRESS 


R2,R3 
000004 ERRVEC ,=(SP) ; sPUSH ERRVE C ON STACK 
000006 ERRVEC+2,-(SP) PUSH ERRVEC+2 ON STACK 
017472 000004 #40$ ,ERRVEC :SETUP FOR "BUS TIMEOUT 
000300 000006 #PR6,ERRVEC+2 
R4 7R4=REGISTER VALUE 


000010 


SELECT DRIVE IF RMCS2 
R3 WRITE TEST REGISTER 
000006 (SP) +, ERRVEC+2 POP STACK INTO ERRVEC+2 
000004 _** -ERRVEC 3; sPOP STACK INTO ERRVEC 


60 
017500 : #45$, (SP) ;DUMMY RTI ADDRESS 
RESTORE PRIORITY 


(SP)+,ERRVEC+2 POP STACK INTO ERRVEC+2 
(SP) +, ERRVEC ; sPOP STACK INTO ERRVEC 
a sWERE ALL RMO3 REGISTERS READ?? 


YES! 
001136 MOV acme 
017524 : BR 140$ 
017526 


017526 000014 001142 RMER1 (RO) , SBDDAT zSTORE RMER1 AT SBDDAT 
177775 =001142 #*CILR,$BDDAT 
001140 001142 S$GDDAT,$BDDAT ;1S “‘ILR** OK?? 
80$ sVES!: 
001174 R3,$TMPO SAVE ADDRESS 
000002 001140 patmamated + SHOULD “"JUR’’ GE SET?? 


s¥ES: 
BR 8 z""ILR’’ SHOULD NOT BE SET 
017572 70$: :‘‘ILR'' SHOULD BE SET 


017574 
NEXT REGISTER ADDRESS 
017574 000002 ADD #2,R2 ; INCREMENT INDEX 
000050 TIME TO TRY RH70 ? 
1 [BRANCH IF NOT 
103437 ;BRANCH IF ae CHECKED 
; a8 THIS RMBAE ?? 


UNEXPECTED BUS TIMEOUT 


; 100$ 
017610 013746 000004 VE PUSH ERRVEC ON STACK 
017614 013746 000006 ;PUSH ERRVEC+2 ON STACK 
017620 012737 017716 000004 #130$,, ERRVEC :SETUP FOR TIMEOUT 
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017626 012737 000300 000006 MOV APRE ,ERRVEC +2 
; #A17!A°6 


#*C<BIT1!BITO>,RMBAE I! 
90$ ;BRANCH IF RH70 CONTROLLER 


#ILR,$GDDAT ;""ILR’' SHOULD BE SET 
ERRVEC+2 


ERRVEC : 
ee ;DONE ALL LEGAL REGISTERS 


; #ILR,$GDDAT oe eae BE SET 
052737 000002 001140 #ILR,SGDDAT :SET ILR 
;START AT INDEX 54 IF RH70/22REG 


#54 ,R2 
000000 #A17!A16,RMCS1 (RO) :SET EXTEND BITS 
000050 001376 50(RO),RMBAE!  ;READ THE EXTENDED BITS 
177774 001376 #177774, RMBAEI =CHOP OFF 
90$ “BRANCH IF RH70/22-REG 
000050 #50,R2 ‘OTHERWISE NOT A RH70 OR RH70 WITH32REG 
000006 908: (SP)+,ERRVEC+2 : 
000004 (SP)+,ERRVEC : 
000074 1108: #74 ,R2 [DONE ALL TESTS 
140$ TYES!! 
017714 120$: BR 10$ 


017716 012716 017724 130$: #135$, (SP) ;DUMMY RTI ADDRESS 
000002 135$ RESTORE PRIORITY 


012637 000004 (SP) +, ERRVEC :sPOP STACK INTO ERRVEC 
012637 000006 (SP) +, ERRVEC+2 3zPOP STACK INTO ERRVEC+2 
140$: END OF TEST 


RRR RK REE ERE KERR EERE EKEEEEEREEKEEEREEEEKEEKEKKE 


S*TEST 26 RESET GO BY INIT TEST 


DIOR U CISCO IISIIIOIIIDISIDISIDIDIDISISIOIIITIIOIIOIITIOIOI IOI IOI IOI III TOT TOI TOT IO TOT TOT IATA ITE 
000004 TST26: 
017736 012737 001226 MO #26,$TESTN 72SET TEST NUMBER IN APT MAIL BOX 


017744 
001120 #20. ,SICNT 320 ITERATIONS 
001131 #1,$ERMAX ;ONE ERROR ALLOWED 
001122 #T26,$LPADR ;LOAD LOOP ON TEST ADDRESS 
001124 #T26,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


ASTACK , SP ;LOAD THE STACK POINTER 
$BASE ,RO ;RO = UNIBUS ADDRESS OF UUT 
TSTQUE ,R1 ;R1 = POINTER TO DEVICE 
000010 ACLR,RMCS2(RO) ;CLEAR THE MASSBUS 
(R1),RMCS2(RO) ;SELECT UNIT 
MOV RO, $BDADR SETUP REGISTER ADDRESS FOR MSG 
;SET GO, INITIALIZE AND VERIFY THAT GO IS RESET 


000000 MOV #GO,RMCS1(RO) ;LOAD RMCS1 
000010 MOV ACLR,RMCS2(RO) ;CLEAR THE MASSBUS 
MOVB (R1),RMCS2(RO) ;SELECT UNIT 
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016037 000000 001142 RMCS1(RO) , SBDDAT STORE RMCS1 AT $BDDAT 
2737 «177776 001142 #*CGO,SBDDAT 
10 ;BRANCH IF GO IS RESET 


$ 
001140 $SGDDAT ' 
137 ;GO NOT CLEARED BY INIT 


10$: END OF TEST 


SL AARAARAEARARAERAEEEEEERERAEREREERRAERRAERRERERERREARRAERERRRRRE EEE 


S*TEST 27 DIAGNOSTIC MODE TEST 


LL AAA REAR EEREEEERRRERERERREREERERRARRARRRERERRRRRRE RE 


000004 TST27: SCOPE 
012737 001226 MOV #27 ,STESTN ::SET TEST NUMBER IN APT MAIL BOX 


NOP 
001120 MOV #20. ,$ICNT 320 ITERATIONS 
00001 001131 #1 , SERMAX ;ONE ERROR ALLOWED 
020136 001122 #T27,$LPADR ;LOAD LOOP ON TEST ADDRESS 
020136 001124 #127,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


001100 ASTACK , SP ;LOAD THE STACK POINTER 
001276 $BASE ,RO 7RO = UNIBUS ADDRESS OF UUT 
001456 TSTQUE ,R1 ;R1_= POINTER TO DEVICE 
001136 RO, $BDADR :SETUP REGISTER ADDRESS 
000024 001136 #RMMR 1, SBDADR 
CLR R3 Pe ear ERROR FLAGS 
INITIALIZE AND VERIFY THAT 'DMD’' IS RESET 
000040 000010 MOV AMCLR,RMCS2(RO) ;CLEAR THE MASSBUS 
111160 000010 MOVB (R1).RMCS2(RO) :SELECT UNIT 
016037 000024 001142 RMMR1 (RO), a STORE RMMR1 AT SBDDAT 
2737 177776 001142 , SBDDAT 
;BRANCH IF ‘DMD'' IS ZERO 
001140 
108 ;CANT CLEAR *'DMD** 
:SET AND RESET "DMD'' USING REGISTER TRANSFER-VERIFY "DMD'’ NOT S-A-1 
020224 012760 000001 000024 #DMD.RMMR1(RO) ;LOAD RMMR1 
020232 012760 000000 000024 #0,RMMR1 (RO) ;LOAD RMMR1 
020240 016037 900024 001142 RMMR1 (RO), ae STORE RMMR1 AT S$BDDAT 
2737 177776 001142 #°CDMD, SBDDAT 
20$ BRANCH IF DMD NOT S~A-1 
001140 SGDDAT 
OR 76 ;CANT WRITE DMD=0 
052703 000001 208 #B1TO,R3 >SET ERROR FLAG 
;RESET AND SET ‘DMD'' USING REGISTER TRANSFER-VERIFY "DMD'’ NOT S-A-O 
020270 012760 000000 000024 MOV #0 ,RMMR1 (RO) LOAD RMMR1 


020276 012760 000001 000024 MOV #DMD,.RMMR1(RO) ;LOAD RMMR1 


020224 


020264 
020270 
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016037 


012702 


012760 


010260 
016037 
2737 


000004 
012737 


000240 
012737 
112737 
012737 
012737 


012760 
016037 


000024 
177776 
000901 
000002 


000002 


000000 
000024 


000024 
177776 
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001142 
001142 


001140 


001124 


000010 


001136 


000024 
001142 


GNOSTIC MODE T 
RMMR1(RO), — ; STORE RMMR1 AT $BDDAT 
#°CDMD, SBDDA 
;BRANCH IF DMD NOT S-A-0 


30 

#DMD , SGDDAT 

77 CAN'T WRITE DMD=1 
#B1T1,R3 ;SET ERROR FLAG 


30$: 
: IF NO PREVIOUS ERROR, TEST FOR BIT INTERFERENCE WITH SHIFTING 
7 ONE a 


BNE 60$ 
MOV #BIT1,R2 


Es! ERRORS DETECTED?? 


sINI TAILIZE DATA PATTERN 
40$: 


#0 ,,RMMR1 (RO) ;LOAD RMMR1 
R2,RMMR1 (RO) LOAD RMMR1 


RMMR1 (RO), on ;STORE RMMR1 AT SBDDAT 
#°CDMD , SBDDAT 
50$ BRANCH IF DMD NOT SET 
R2,$TMPO SSAVE DATA 
R2,$TMPO SAVE DATA 
SGDDAT :DMD SHOULD BE ZERO 

508 100 :DMD SET BY WRONG BIT 


5 ge et ies DATA BIT AND CONTINUE TEST IF NOT DONE 


BNE 40$ 
60$: END OF TEST 


= LRA REE EEE ERE REE EERE EERE REE REE ER EERE EEE REESE 


i*TEST 30 MOL TEST 


DDSI IOISIEIIIOISIIISISIIOISISISIIIIIIDIIIIOIOIIIIIDIOIOIIIIOIOIDIOIIOIOIUIOIIIOINIUIOIIOIIUIOIIODIOOE 
TST30: SCOPE 
MOV #30, $TESTN 7zSET TEST NUMBER IN APT MAIL BOX 


#20.,$ICNT 720 ITERATIONS 

#1, $ERMAX “ONE ERROR ALLOWED 
#730,$LPADR ;:LOAD LOOP ON TEST ADDRESS 
#730.$LPERR :LOAD LOOP ON ERROR ADDRESS 


#STACK, SP ;LOAD THE STACK POINTER 
$BASE ,RO ;RO = UNIBUS ADDRESS OF UUT 
TSTQUE ,R1 3R1_= POINTER TO DEVICE 
#CLR,RMCS2(RO) 4 ors THE MASSBUS 
(R1) ,RMCS2(RO) ECT UNIT 
RO. $BDADR ‘ROS REGISTER ADDRESS 
ARMDS , $BDADR 

R3=ERROR FLAG 


CLR R 

SET DIAGNOSTIC MODE AND VERIFY THAT "MOL" IS ZERO 
MOV #DMD,RMMR1(RO) ;LOAD RMMR1 
MOV RMDS(RO),$BDDAT ;STORE RMDS AT S$BDDAT 


SEQ 0153 
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167777 001142 ae - SBDDAT 
001140 $GDDAT 
101 z*MOL'' NOT ZERO 
052703 000001 108 #B1TO,R3 SET ERROR FLAG 
;SET MAINTENANCE UNIT READY AND VERIFY THAT ‘MOL’ IS ONE 
012760 000001 000024 #DMD,RMMR1(RO) ;LOAD RMMR1 
012760 001001 000024 #DMD ! MUR ,RMMR1 (RO) ;LOAD. RMMR1 


016037 000012 001142 RMDS(RO), a STORE RMDS AT S$BDDAT 
042737 167777 001142 ae #*CMOL , SBDDA 


001006 20$ 

012737 010000 001140 AMOL , SGDDAT 
104102 102 

052703 000002 #B1T1,R3 


20$: 
: IF NO PREVIOUS ERROR, VERIFY VOLUME VALID IS RESET AND 
3s TEST ig * ae —_— 


70$ 


000012 001142 RMDS(RO),$BDDAT ;STORE RMDS AT SBDDAT 
177677 001142 #*CVV,$BDDAT 
5$ ;BRANCH IF VV RESET 


2 
001140 SGDDAT 
135 :VV NOT RESET 


000001 : #1,R2 :INITIALIZE DATA PATTERN 


:’MOL"’ NOT ONE 


ZANY ERROR DETECTED?? 
=¥ES!: 


000001 000024 #DMD,.RMMR1(RO) ;LOAD RMMRI 
000024 R2,RMMR1 (RO) ;LOAD RMMR1 


000012 001142 RMDS(RO) ,SBDDAT ;STORE RMDS AT SBDDAT 
167777 001142 #*CMOL , SBDDAT 
R3 SETUP EXPECTED *™OL*’ 


001000 


010000 AMOL .R3 7’ ™0L"* SHOULD BE ONE 
001142 : ot + Pty MOL OK?? 


001174 A *SAVE TEST PATTERN 
001140 MO R3,$GDDAT : 
103 :MUR SET BY WRONG BIT 
020746 


020746 000001 j BIC ADMD ,R2 :DONT SHIFT DMD 
001002 60$ 


000001 ;DONT TRUNCATE TEST 
60$: R2 ;SHIFT TO NEXT BIT 
;BRANCH IF DONE 
052702 000001 KEEP DMD ON 
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020770 000735 BR 30$ ; CONT INUE 
020772 70$: END OF TEST 


LURE REE ERE REE ERE REAR REERAREAER RARER RARER ER ERE AEE ERR 


s*TEST 31 WRITE LOCK TEST 


DES RISOIOIOIIIDIOIOII ISIS UR ERE EER ER ttt tttt 
020772 000004 TST31: 
020774 012737 000031 001226 #31,$TESIN 72SET TEST NUMBER IN APT MAIL BOX 


000024 001120 #20. ,SICNT 3:20 ITERATIONS 

000001 001131 #1, SERMAX ONE ERROR ALLOWED 
021034 001122 #131,$LPADR ;LOAD LOOP ON TEST ADDRESS 
021034 001124 #131,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


001100 ASTACK, SP ;LOAD THE STACK POINTER 
$BASE ,RO ;RO = UNIBUS ADDRESS OF UUT 
TSTQUE ,R1 :R1 = POINTER TO DEVICE 
R3 R3=ERROR FLAG 
;SETUP REGISTER ADDRESS 


001136 
GDDA ;WRL SHOULD BE ZERO 
000010 MCLR,RMCS2(RO) ;CLEAR THE MASSBUS 
021076 MOVB (R1),RMCS2(RO) ;SELECT UNIT 
MODE AND VERIFY FURL" IS ZERO 


021102 000024 #DMD,.RMMR1(RO) ;LOAD RMMR1 


021110 000012 001142 RMDS(RO) ,SBDDAT ;STORE RMDS AT S8DDAT 
173777 001142 #“CWRL ,SBDDAT 
10$ ;BRANCH IF WRL IS ZERO 
04104 . 104 ;WRL NOT ZERO 
052703 000001 #BITO,R3 SET ERROR FLAG 


10$: 
:SET MAINTENANCE WRITE PROTECT AND VERIFY ‘WRL*’ IS ONE 
012760 000001 000024 #DMD,.RMMR1(RO) ;LOAD RMMR1 
021142 012760 000011 000024 #DMD 'MWP,RMMR1 (RO) ;LOAD RMMR1 


021150 000012 001142 RMDS(RO), — STORE RMDS AT $BDDAT 
173777 001142 #*CWRL, SBDDAT 
;BRANCH IF WRL IS NOE 


20 
004000 001140 MOV MWRL , SGDDAT ;WRL SHOULD BE SET 
105 CANT SET WRL 
052703 000002 #B1T1,R3 [SET ERROR FLAG 


20$: 
: IF NO PREVIOUS ERROR, TEST FOR BIT INTERFERENCE ON ‘™MwP’* 
021202 005703 TST R3 ANY OTHER ERROR?? 
021204 001045 BNE 70$ sYES!! 
1206 012702 MOV #1,R2 S INITIALIZE DATA PATTERN 


021212 30$: 
: TRANSFER DATA TO RMMR1, READ RMDS AND VERIFY WRL 
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021212 000001 000024 #DMD,RIIMR1(RO) ;LOAD RMMR1 
021220 000024 R2,RMMR1(RO) ;LOAD RMMR1 


021224 000012 001142 MOV RMDS(RO) ,SBDDAT ;STORE RMDS AT S$8DDAT 
173777 001142 #*CWRL,SBDDAT ;CLEARUP RECEIVED ‘WRL*’ 
10 R3 GENERATE EXPECTED ‘WRL"’ 


004000 #MWRL .R3 ;WRL SHOULD BE SET 
001142 : i 71S WRL OK?? 
50$ svesi! 
001140 R3,$GDDAT SAVE EXPECTED 
001174 R2,$TMPO 7SAVE DATA PATTERN 
106 SBIT INTERFERENCE WITH MwP 


021274 
: TO NEXT DATA BIT 
021274 000001 oa oo R2 ;DONT SHIFT DMD 


000001 ;DONT TRUNCATE TEST 
R2 SHIFT DATA BIT 
EXIT IF DONE 
00000' KEEP DIAGNOSTIC MODE ON 
021316 000735 BR $ CONTINUE TEST 


021320 70$: sEND OF TEST 


FLEA REAR EEER ARR EREREREEREKEERREEERERREEEREEEEEREERRERAERRER EEE 


s*TEST 32 DRIVE FAULT TEST 


DRAUSS IO IOIDIOIDIEIIEIISIIOIIIOIDIOIOIIIIIIOIDIUIDIIOIOIOIOIOIUIIUIIIIODI IO IOI ttt 
021320 000004 TST32: 
021322 012737 000032 #32, $TESIN 72SET TEST NUMBER IN APT MAIL BOX 


000024 #20. ,SICNT 320 ITERATIONS 

000001 #1, SERMAX ZONE ERROR ALLOWED 
021362 #732,$LPADR ;LOAD LOOP ON TEST ADDRESS 
021362 #T32,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


001100 AMSTACK , SP ;LOAD THE STACK POINTER 
001276 SBASE RO ;RO = UNIBUS ADDRESS OF UUT 
001456 TSTQUE ,R1 :R1 = POINTER TO DEVICE 
000040 #CLR,RMCS2(RO) CLEAR THE MASSBUS 
000010 (R1),RMCS2(RO) ;SELECT UNIT 
R3 : INITIALIZE ERROR FLAGS 
001136 RO, $8 [SETUP REGISTER ADDRESS 
000042 WRMER?. SBDADR 
021424 001140 CLR $GDDAT ;*DVC'* AND "UNS'* SHOULD BE ZERO 
+ {he A 2 MAINTENANCE DRIVE FAULT, VERIFY THAT ‘DVC'’ IS NOT 


021430 000001 MOV #DMD,RMMR1(RO) ;LOAD RMMR1 
021436 012760 000000 MOV #0 ,RMER2(RO) LOAD RMER2 
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021444 012760 000000 000014 #0 ,RMER1 (RO) ;LOAD RMER1 


021452 016037 000042 001142 MO RMER2 (RO) , SBDDAT jSTORE RMER2 AT SBDDAT 
2737 =177577 001142 ;  peeemnoes: #IS “Dvc * RESET?? 


1 ;YES!! 
107 SCANT RESET DVC 
000001 #B1T0,R3 SET ERROR FLAG 
012737 001140 108 #UNS , $GDDAT 


;VERIFY THAT "UNS’’ IS SAME AS ‘DVC"’ 


016037 000014 001142 RMER1(RO), — STORE RMER1 AT S$B8DDAT 
2737 001142 #*CUNS , SBDDAT 
001142 a - SBDDAT 3 gt ‘UNS'' OK?? 


RO, $BDADR [SETUP REGISTER ADDRESS 
001136 A#RMER1 , SBDADR 
001140 J > pent + SHOULD "'UNS'' BE ON?? 


sVES! 
110 ;UNS IS SET, DVS IS RESET 
30$ 


20$: 
30$: 


RESET AND SET 'MDF‘’, VERIFY THAT ‘DVC** IS NOT S-A-0. 
012737 000200 001140 MOV ADVC,$GDDAT z:DVC SHOULD BE ON 


012760 000001 000024 #DMD,RMMR1(RO) ;LOAD RMMR1 
012760 000101 000024 #DMD ! MDF ,RMMR1 (RO) ;LOAD RMMR1 


016037 000042 001142 RMER2 (RO) , SBDDAT STORE RMER2 AT $BDDAT 
177577 001142 #*CDVC ,SBDDAT 
Os CH IF DVC IS SET 


4 ;BRAN 
001136 RO, $BDADR SETUP REGISTER ADDRESS 
000042 001136 AD #RMER2 , SBDADR 

OR 112 CANT SET DVC 
000002 BIS #B1T1,R3 ;SET ERROR FLAG 
001140 se CLR $GDDAT UNS SHOULD BE OFF 


VERIFY THAT ‘UNS'' es SAME AS *DVC'' 
001140 TST $GDDAT CHANGE DVC TO UNS 


50$ 
040000 HUNS , SGDDAT 
50$: 


ERROR 111 UNS IS RESET, DVC IS SET 


000014 RMER1 (RO) , SBDDAT STORE RMER1 AT $BDDAT 
137777 #*CUNS , SBDDAT 
001140 $GDDAT , $BDDAT 

70$ ;BRANCH IF UNS IS 


0 OK 
0217 001136 MOV RO, $BDADR ;SETUP REGISTER ADDRESS 
021710 000014 #RMER1 , SBDADR 


NN NN NN NEN NN NN NNN ONO ONO Dn 
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032737 
001002 


012702 


012760 
012760 
010260 
016037 


000004 
012737 


012737 
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040000 


000001 


000001 
000000 
000024 
000042 
177577 
001140 
000100 
000200 
001140 
001136 


000042 
001174 


000001 
000001 


000001 


000033 


000024 
000001 
022136 
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001140 BIT #UNS , SGDDAT 
BNE 60$ 


ERROR 113 
BR 70$ 


ERROR 114 


: SHOULD UNS BE ON?? 

wy IS SET, DVC IS RESET 

60$: 

70$: 

5 MO ee WERE NO PREVIOUS ERRORS, TEST FOR BIT INTERFERENCE ON 
R3 


120$ ;BRANCH IF ANY OTHER ERRORS 
#1,R2 INITIALIZE TEST PATTERN 


UNS IS RESET, DVC IS SET 


000024 
000042 


#DMD ,RMMR1 (RO) 
#0 ,RMER2 (RO) 
R2,RMMR1 (RO) 
RMER2 (RO) , SBDDAT 
A#*CDVC,$BDDAT ;GET RESULTS 

$GDDAT SETUP EXPECTED 

AMDF ,R2 WAS MDF SET?? 

90$ zNO!! 

ADVC,$GDDAT :YES-DVC SHOULD BE ON 


$GDDAT , SBDDAT 
00$ ;BRANCH IF DVC IS OK 
SETUP REGISTER ADDRESS 


SAVE TEST PATTERN 
MDF SET BY WRONG BIT 


;LOAD RMMR1 
;LOAD RMER2 
LOAD RMMR1 


001142 STORE RMER2 AT $BDDAT 


001142 


001140 
001142 


001136 


;DONT SHIFT DMD 
aOFT TRUNCATE TEST 
EXIT IF DONE 

[KEEP DMD ON 

> CONT INUE 

120$: END OF TEST 


FLARE EERE EERE EEE KEE REE KEKE EERE ER 


i*TEST 33 SEEK ERROR TEST 


DRE ERRERRRRKRREEEREREREKEERE EEE REKEREREEEE 


#33, $TESTN 


110$: 


TS133: 


001226 3:SET TEST NUMBER IN APT MAIL BOX 


001120 #20.,S$ICNT 
001131 #1, $ERMAX 
001122 #133, $LPADR 


320 ee at 
[ONE ERROR ALLOWED 
;LOAD LOOP ON TEST ADDRESS 





SEQ 0158 CZR! 


C0 00 C0 C0 Oo C0 C0 C0 00 Go Cd C0 00 00 Co C0 20 0902 OO YY YNYN YY YY YY 


ao 
™N 
2g 
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012737 022136 001124 ne #733,$LPERR ;LOAD LOOP ON ERROR ADDRESS 
001100 . #STACK, SP sLOAD THE STACK POINTER 
001276 $BASE ,RO “RO = UNIBUS ADDRESS OF UUT 
001456 TSTQUE ,R1 ‘R1 = POINTER TO DEVICE 
000040 000010 #CLR,RMCS2(RO) CLEAR THE MASSBUS 
000010 (R1).RMCS2(RO) =SELECT UNIT 
R3 “CLEAR ERROR FLAGS 
0221 001136 RO, $B “SETUP REGISTER ADDRESS 
022172 000042 001136 SER SEDADR 
:SET DIAGNOSTIC MODE AND VERIFY THAT "'SKI'’ CAN BE RESET 
022200 012760 000001 000024 #DMD.RMMR1(RO) ;:LOAD RMMR1 
022206 012760 000000 000042 #O,RMER2(RO)  : LOAD RMER2 


022214 016037 000042 001142 RMER2 (RO) , SBDDAT STORE RMER2 AT S$BDDAT 
137777 001142 #*CSKI ,$BDDAT 
10$ BRANCH IF SKI IS RESET 


0 
001140 $GDDAT 


104116 116 
052703 000001 #B1T0,R3 TSET ERROR FLAG 
022244 10S: 


ao 
Ns 
moe 2 


7SET MAINTENANCE SEEK ERROR AND VERIFY THAT ‘'SKI'’ CAN BE SET 
022244 012760 000001 000024 A#DMD,RMMR1(RO) ;LOAD RMMR1 


022252 012760 000000 000042 #0 ,RMER2 (RO) ;LOAD RMER2 
022260 012760 000201 000024 #DMD !MSER ,RMMR1 (RO) ;LOAD RMMR1 


016037 000042 001142 RMER2 (RO), pes STORE RMER2 AT $BDDAT 
042737 137777 001142 #*CSKI, SBDDAT 
BRANCH IF aT IS SET 


001005 20$ 

012737 040000 001140 ASKI ,$GDDAT CANT SET 

052703 000002 #B1T1,R3 :SET ERROR FLAG 
022316 20$: 


71F NO PREVIOUS ERROR, CHECK FOR BIT INTERFERENCE SETTING MAINTENANCE 
; SEEK — 


005703 

001051 BNE ;BRANCH IF ANY OTHER ERRORS 
012702 000001 MOV INITIALIZE TEST PATTERN 
022326 30$: 

022326 012760 000024 #DMD,RMMR1(RO) ;LOAD RMMR1 

012760 000042 #0 ,RMER2 (RO) ;LOAD RMER2 

010260 R2,RMMR1 (RO) LOAD RMMR1 

016037 RMER2 (RO) , SBDDAT STORE RMER2 AT S$BDDAT 


#*CSKI,$BDDAT ;GET SKI STATUS 
001140 $GDDAT ;SETUP EXPECTED RESULT 


022316 


00 00 00 00 00 00 0 00 Cd 00 00 Cd G0 OF 0 20 Go G0 C0 Go OO O0 G0 Go G0 Qo GO G0 O0 Go O0 Go 20 0 OO Oo 20 00 02 Oo O02 Oo 00 0 0 Oo 00 00 Oo Oo Oo 02 Oo OO 
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032702 000200 AMSER ,R2 
40$ 


040000 001140 #SKI,$GDDAT SKI SHOULD BE ON 
001140 001142 40$: MP $GDDAT , S$BDDAT 
50$ ;BRANCH IF SKI IS OK 


001174 R2,$TMPO SAVE TEST PATTERN 
120 7SK1 SET BY WRONG BIT 
022420 50$: 


; TEST PATTERN IN R2 
022420 000001 IC #DMD ,R2 ;DONT SHIFT DMD BIT 


000001 ;DONT TRUNCATE TEST 
R2 : SHIFT TO NEXT BIT 


000001 : 
022442 000731 30$ ZCONTINUE TEST 


022444 70$: END OF TEST 


© Re KR REE ERRKREKEKREKEKEEKEKKEKREKEKEKKEKEKKEK 


TRTEST 34 PIP TEST 


SIM Rela R ahaha hahahahaha halakahahahahelehehehaiahahehehelehalelehaheleheheleleieleleheielehelaheieleieielcheieieleieleieieielel 


022444 000004 TST34: 
022446 012737 000034 001226 #34, $TESIN ::SET TEST NUMBER IN APT MAIL BOX 


022454 


09 09 C0 00 90 0 20 G0 02 20 20 00 22 Oo 92 Oo 90 Oo 92 22 02 Oe 22 Oe 02 20 Oe 


000024 001120 #20. ,S1CNT 20 ITERATIONS 


001131 #1, SERMAX ;ONE ERROR ALLOWED 
001122 #134,$LPADR ;LOAD LOOP ON TEST ADDRESS 
001124 #734,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


ASTACK, SP ;LOAD THE STACK POINTER 
$BASE ,RO [RO = UNIBUS ADDRESS OF UUT 
TSTQUE ,R1 :R1 = POINTER TO DEVICE 
000010 #CLR,RMCS2(RO) = CLEAR THE MASSBUS 

(R1).RMCS2(RO) :SELECT UNIT 
R3 RESET ERROR FLAGS 

001136 RO, $BDADR SETUP REGISTER ADDRESS 

022542 000012 001136 ARMDS , SBDADR 


;SET MAINTENANCE ON CYLINDER ‘MOC’ AND VERIFY THAT 'PIP*’ CAN BE RESET. 
022550 000001 000024 #DMD,RMMR1(RO) ;LOAD RMMR1 
022556 012760 000401 000024 #DMD ! MOC ,RMMR1 (RO) ;LOAD RMMR1 


016037 000012 001142 RMDS(RO) ,SBDDAT ;STORE RMDS AT $BDDAT 
157777 001142 #*CPIP,$BDDAT 
0$ BRANCH IF PIP IS RESET 


1 
001140 $GDDAT 

121 ;CANT RESET PIP 

052703 000001 #B1TO,R3 SET ERROR FLAG 


022614 10$: 
;RESET MAINTENANCE ON CYLINDER AND VERIFY THAT ‘PIP’’ CAN BE SET 


Q0 00 Co Oo 00 Oo CO Co OL Oo Cd C0 C0 Od Co 00 Co CO Co G0 G0 OO Co OO Co Co Co 02 CO 
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022614 012760 000001 000024 #DMD,RMMR1(RO) ;LOAD RMMR1 


022622 016037 000012 001142 MO RMDS(RO) ,SBDDAT ;STORE RMDS AT SBDDAT 
157777 001142 #*CPIP,$BDDAT 
BN ;BRANCH IF PIP IS SET 


20$ 
020000 001140 #PIP,$GDDAT 
122 CANT SET PIP 
052703 000002 #B1T1,R3 SET ERROR FLAG 
022654 20$: 
7 IF NO PREVIOUS ERROR, TEST FOR ADJACENT BIT SETTING 'MOC"’ 
022654 005703 TST R3 
022656 001046 BNE 70$ BRANCH IF ANY PREVIOUS ERROR 
022660 012702 MOV #1,R2 INITIALIZE TEST PATTERN 
022664 30$: 
: WRITE THE TEST PATTERN, CHECK MOC USING PIP 
022664 012760 000024 A#DMD,RMMR1(RO) ;LOAD RMMR1 
022672 010260 R2,RMMR1 (RO) ;LOAD RMMR1 
022676 016037 000012 001142 RMDS(RO) ,SBDDAT ;STORE RMDS AT SBDDAT 


001142 fore SBDDAT GET PIP STATUS 
DAT ;SETUP EXPECTED RESULT 


40$ 
001140 #PIP,$GDDAT ;PIP SHOULD BE SET 
001142 : $GDDAT , SBDDAT 

50$ ;BRANCH IF PIP OK 


001174 MO R2,$TMPO “SAVE TEST PATTERN 
123 “MOC SET BY WRONG BIT 


022750 
; THE TEST PATTERN 
022750 000001 Ic ty R2 ;DONT SHIFT DMD 


000001 ;DONT TRUNCATE TEST 
R2 SHIFT BIT 
EXIT IF DONE 
000001 [KEEP DMD ON 
022772 30$ ; CONTINUE TEST 


022774 : ZEND OF TEST 


MARAE SASLES S22 22 SESESSRESESSESE RRS ESSE RASS RR RAR SRR AAAS SSAA SS SS 


SRTEST 35 EBL TEST 


CL RRR EERE EER RARE EKER ERE EERE EKER EEE EERE REE 


022774 000004 TST35: SCOPE 
022776 012737 000035 001226 MOV #35 ,STESIN 32SET TEST NUMBER IN APT MAIL BOX 


001120 #20. ,$ICNT 720 ITERATIONS 
#1, $ERMAX TONE ERROR ALLOWED 
#735,$LPADR ;LOAD LOOP ON TEST ADDRESS 
012737 023036 001124 #735.$LPERR :LOAD LOOP ON ERROR ADDRESS 


012706 001100 F #STACK, SP :LOAD THE STACK POINTER 
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023130 
023136 
023144 
023152 


023176 


023176 
023204 
023212 


023244 
023244 


023254 


023254 
023262 


023266 
023274 


005037 


012760 
111160 


016037 
052703 


012760 
012760 
012760 
016037 


052703 


012760 
012760 
016037 


052703 


005703 
001042 
012702 


012760 
010260 


016037 
042737 


001140 
000040 
000010 
000024 
157777 


000001 


000001 
020001 
000001 
000024 
157777 


000001 


000001 
020001 


000024 
157777 


020600 
000002 


000001 


000001 
000024 


000024 
157777 
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001136 


000010 


001142 
001142 


000024 
000024 
000024 


001142 
001142 


000024 
000024 


001142 
001142 


001140 


000024 


001142 
001142 


$BASE ,RO ;RO = UNIBUS ADDRESS OF UUT 
TSTQUE ,R1 7R1 = POINTER TO DEVICE 

R3 ZRESET ERROR FLAGS 

aa $BDADR SETUP REGISTER ADDRESS 


RMMR1 , SBDADR 
CLR SGDDAT ;SETUP EXPECTED RESULT 
:CLEAR AND VERIFY THAT END OF BLOCK IS RESET 
MOV AMCLR,RMCS2(RO) ;CLEAR THE MASSBUS 
(R1).RMCS2(RO) :SELECT UNIT 


RMMR1 (RO) , SBDDAT STORE RMMR1 AT $BDDAT 
#*CEBL , SBDDAT 
10$ BRANCH IF EBL IS RESET 


124 CANT CLEAR EBL 
#BITO,R3 ;SET ERROR FLAG 


10$: 
:SET AND RESET DIAGNOSTIC END OF BLOCK, CHECK FOR EBL S-A-1. 


#DMD,RMMR1(RO) ;LOAD RMMR1 

#DMD ! DEBL ,RMMR1 (RO) ;LOAD RMMR1 
#DMD,RMMR1(RO) ;LOAD RMMR1 

RMMR1 (RO) , SBDDAT :STORE RMMR1 AT $BDDAT 
#*CEBL , SBDDAT 

20$ ;BRANCH IF EBL IS RESET 


125 ;DEBL APPEARS S-A-1 
#BITO,R3 ;SET ERROR FLAG 


20$: 
RESET AND SET DIAGNOSTIC END OF BLOCK, CHECK FOR EBL S-A-0 


#DMD,RMMR1(RO) ;LOAD RMMR1 
ADMD ! DEBL ,RMMR1 (RO) ;LOAD RMMR1 
RMMR1 (RO) , SBDDAT ;STORE RMMR1 AT $BDDAT 


#*CEBL ,$8DDAT 
30$ ;BRANCH IF EBL IS SET 
#EBL ,SGDDAT 
126 CANT SET EBL 


#B1T1,R3 7SET ERROR FLAG 


30$: 
:IF NO ee ne TEST FOR ADJACENT BIT INTERFERENCE ON ‘DEBL"*. 


BNE 70$ ;BRANCH IF ANY ERROR 
MOV #1,R2 s INITIALIZE TEST PATTERN 


WRITE, READ AND VERIFY THE TEST PATTERN IN R2 
A#DMD,RMMR1(RO) ;LOAD RMMR1 
R2,RMMR1 (RO) ;LOAD RMMR1 


RMMR1 (RO) , SBDDAT STORE RMMR1 AT S$BDDAT 
#*CEBL ,$BDDAT 


0 20 00 00 20 Qo 20 Oo Qo 20 Qo Oo Qo Qo OE Oo Qo Qo Oo Oe Oo Oo Oo Qo O0 Bo Bo OE Qo Ne Oo Be Oe Bo Bo Oe Bo Oo Re Qo Oo 


Q0 00 


am 
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7669 023302 010203 MOV R2,R3 ;GENERATE EXPECTED RESULT 
7670 023304 042703 157777 BIC #*CEBL ,R3 
7671 023310 020337 001142 CMP R3,$BDDAT 
7672 023314 001405 BEQ 50$ ;BRANCH IF EBL IS OK 
7673 023316 010337 001140 MOV R3,$GDDAT ;SAVE EXPECTED RESULT 82 
7674 023322 010237 001174 MOV R2,$TMPO ;SAVE TEST PATTERN 82 
7675 023326 104127 ERROR 127 ;DEBL SET(RESET) BY WRONG BIT 82 
7676 023330 50$: 82 
7677 ‘ SHIFT TO NEXT BIT POSITION 82 
7678 023330 042702 000001 BIC #DMD ,R2 ;DONT SHIFT DMD 82 
7679 023334 001002 BNE 60$ 82 
7680 023336 012702 000001 MOV #DMD ,R2 ;DONT TRUNCATE DMD 82' 
7681 023342 006302 60$: ASL R2 ;SHIFT TO NEXT BIT 82 
7682 023344 001403 BEQ 70$ TEXIT IF DONE 82 
7683 023346 052702 000001 BIS ADMD ,R2 ;KEEP DMD ON 82 
ee 023352 000740 BR 40$ ; CONTINUE TEST 3 
\ 
7686 023354 70$: sEND OF TEST 82 
7687 82 
7688 DD FI RR I ICICI TOT TOIT TOS TOT OR IORI IOI TOI IOI IOS IIIS ISIS ISAS SI SASIAS 82 
7689 T*TEST 36 LAST SECTOR, LAST TRACK TEST 82 
7690 82) 
7691 OR IOI IIIS IOTO TOTO OI STOO SOIC IOI IASI IISA IAI SIISASSAISSSISS SAS. 82 
7692 023354 000004 TST36: SCOPE 82 
7693 023356 012737 000036 001226 MOV #36,$TESTN 3zSET TEST NUMBER IN APT MAIL BOX 82 
7694 023364 000240 NOP 82 
7695 023366 012737 000024 001120 MOV #20. ,$1CNT 720 ITERATIONS 82 
7696 023374 112737 000001 001131 MOVB #1,SERMAX > ONE ERROR ALLOWED 82 
7697 023402 012737 023416 001122 MOV #7T36,$LPADR LOAD LOOP ON TEST ADDRESS 82 
7698 023410 012737 023416 001124 MOV #T36,$LPERR ;LOAD LOOP ON ERROR ADDRESS 82 
7699 023416 136: 82 
7700 023416 012706 001100 MOV ASTACK, SP ;LOAD THE STACK POINTER 82 
7701 023422 013700 001276 MOV $BASE ,RO [RO = UNIBUS ADDRESS OF UUT 82 
7702 023426 013701 001456 MOV TSTQUE ,R1 +R1 = POINTER TO DEVICE 82 
7703 023432 012760 000040 000010 MOV ACLR,RMCS2(RO) CLEAR THE MASSBUS 82 
7704 023440 111160 000010 MOVB (R1),RMCS2(RO) ;SELECT UNIT 82 
7705 023444 005002 CLR R2 s INITIALIZE TEST PATTERN 82 
7706 023446 010037 001136 MOV RO, $BDADR ;SETUP REGISTER ADDRESS 82 
7707 023452 062737 000024 001136 ADD #RMMR 1, SBDADR 82 
7708 023460 005037 001434 CLR RMOF 0 ;START IN 18 BIT MODE 82 
7709 023464 10$: 82 
7710 ; TRANSFER TEST PATTERN TO RMDA THEN VERIFY LAST SECTOR ‘'LS*' AND LAST 82 
7711 ;SECTOR/TRACK ‘LST'* FOR EACH TRANSFER. THE TABLE BELOW LISTS THE VALUE 82 
a4 3OF RMDA FOR WHICH LS AND LST ARE SET. s 
7714 : 18 BIT MODE 16 BIT MODE 82 
7715 iLS= XXX035 XXX037 82 
7716 : 82 
7717 sLST= 002035 002037 82 
7718 82 
7719 82 
Ae 023464 013760 001434 000032 MOV RMOFO,RMOF (RO) ;LOAD RMOF 2 
urs 023472 010260 000006 MOV R2,RMDA(RO) ;LOAD RMDA zs 
7724 023476 016037 000024 001352 MOV RMMR1 (RO) ,RMMR1 I ;STORE RMMR1 IN INPUT BUFFER 83 
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023714 
023716 


023716 


023740 
023742 


023742 
023744 


023752 
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013737 


000004 
012737 
000240 


002037 


000002 
001140 


001174 


010000 
010000 


000037 


MACY11 30A(1052) 
136 


001142 
001142 


001434 


001140 


001176 


001142 
001142 


001434 


001140 


001140 
001142 


001434 
001434 


001226 


RMMR11 , $BDDAT 
#*CLS,SBDDAT 
$GDDAT 
#FMT16,RMOFO 
20$ 

#035,R2 
#LS,$GDDAT 
30$ 

#037,R2 

30$ 


#LS,$GDDAT 
$GDDAT , SBDDAT 
40$ 


R2,$TMPO 
RMOFO,$TMP1 
130 

80$ 

RMMR11 ,$BDDAT 
#*CLST,$BDDAT 
SGDDAT 
#FMT16,RMOFO 
50$ 

#002035 .R2 
60$ 
#LST,SGDDAT 
#002037,R2 
60$ 


ALST,SGDDAT 
— 


70$ 
R2,$TMPO 
131 
80$ 


I 13 
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LAST SECTOR, LAST TRACK TEST 


iVERIFY LS" 


GENERATE EXPECTED ‘1LS'’ 
;16 BIT MODE?? 


YES: ? 


LS SHOULD BE ON-18 BIT MODE 


LS SHOULD BE ON-16 BIT MODE 


BRANCH IF LS _IS CORRECT 

;SAVE TEST PATTERN 

SAVE OFFSET REGISTER FOR ERROR 
;LS NOT CORRECT FOR RMDA 

;SKIP TO NEXT 

VERIFY “LST’’ 


; GENERATE EXPECTED "LST" 
316 BIT MODE? 
sVES$:! 


LST SHOULD BE ON-18 BIT MODE 


LST SHOULD BE ON-16 BIT MODE 


;SAVE TEST PATTERN 
zLST NOT CORRECT FOR RMDA 
:SKIP TO NEXT 


ADVANCE TO NEXT TEST PATTERN, CHANGE TO 16 BIT MODE IF ALL 
‘ s INCREMENT PATTERN 


TESTS DONE 
INC R2 


10$ 
#FMT16,RMOFO 
80$ 
#FMT16,RMOFO 
10$ 


80$: 


S*TEST 37 


RMDA COUNT TEST 


;CONTINUE IF NOT DONE 
:DONE 16 BIT TOO?? 


YES 
"DO ié BIT FORMAT TEST 


END OF TEST 


WR AREAS SESSLESSSSSAS SESS SELES ESSE SSSR RS RE RASS RRR RRA ASA A SASS ASS DS: 


VOR eSSESSSSSSSESSLESL ESE SESE R SESE SERS RASS SSR ARRAS RSA R RAR SAAR ARES! 


TST37: SCOPE 


MOV #37, $TESIN 
NOP 


7:SET TEST NUMBER IN APT MAIL BOX 


SEQ 0164 
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023754 012737 #20. ,$ICNT 320 ITERATIONS 
#1, SERIAX ‘ONE ERROR ALLOWED 
#737,$LPADR ;:LOAD LOOP ON TEST ADDRESS 
001124 #737.$LPERR :LOAD LOOP ON ERROR ADDRESS 


001100 #STACK , SP ;LOAD THE STACK POINTER 
001276 SBASE ,RO RO = UNIBUS ADDRESS OF UUT 
001456 TSTQUE ,R1 7R1 = POINTER TO DEVICE 
001136 RO, $BDADR SETUP REGISTER ADDRESS 
000006 001136 #RMDA , SBDADR 
001434 FMOF 0 START WITH 18 BIT FORMAT 
000035 024460 j #035,110$ SETUP LAST SECTOR FOR 18 BIT 
012737 000001 001140 MOV #1,$GDDAT SETUP FIRST COUNT 


FERRARA AAAAAAAARAAEERAREEREREARERARARRRARERARARRARRREARARERRERA AER 


8&4 
8&4 
84 
84 
84 
84 
84 
84 
84 
84 
84 
84 
84 
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7795 ; INCREMENT SECTOR COUNT USING DIAGNOSTIC END OF BLOCK STARTING AT 84" 
7796 :SECTOR 0 AND CONTINUING UNTIL TRACK ADDRESS INCREMENTS 84" 


84, 


RRRRRRRLLKLLLLKKLLLLELLEELKEELRAKEKKRKKK 
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024052 


024052 
024060 


024064 
024072 
024100 
024106 


024114 
024122 


024130 
024136 


012760 
111160 


012760 
012760 
012760 
012760 


013760 
013737 


012760 
012760 


000040 
000010 


000001 
000000 
000000 
000000 


001434 
001434 


040001 
000001 


MACY11 


000010 


000024 
000014 
000042 
000006 


000032 
001174 


000024 
000000 


13 
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10$: 

; .CLEAR THE MASSBUS 

> -SET FORMAT 
.LOAD SECTOR AND TRACK ADDRESS 

; -ENABLE DEBUG CLOCK 

; .SET GO BIT 
MOV MCLR,RMCS2(RO) ;CLEAR THE MASSBUS 
MOVB (R1),RMCS2(RO) ;SELECT UNIT 


MOV #DMD,RMMR1(RO) ;LOAD RMMR1 
MOV #0 ,RMER1 (RO) LOAD RMER1 
MOV #0 ,RMER2 (RO) LOAD RMER2 
MOV #0,.RMDA(RO) LOAD RMDA 


MOV RMOFO,RMOF (RO) ;LOAD RMOF 
MOV RMOF 0, $TMPO 7SAVE OFFSET FOR ERROR TYPE 


MOV #DMD ! DBEN,RMMR1 (RO) ;LOAD RMMR1 
MOV #G0,RMCS1 (RO) ;LOAD RMCS1 


CZ 


RM. 
846 
847 
84) 
84 
84 
84 
84 
84 
84 
84 
8&4 
84 
84 


PR wi Bini ai wininini 
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024144 25$: 

: SET AND RESET EBL TO INCREMENT RMDA THEN VERIFY RMDA. 
024144 012760 060001 000024 ADMD ! DBEN! DEBL ,RMMR1 (RO) ;LOAD RMMR1 
024152 012760 040001 000024 #DMD ! DBEN,RMMR1 (RO) ;LOAD RMMR1 


016037 000006 001142 RMDA(RO),$BDDAT ;STORE RMDA AT S$B8DDAT 
001142 001140 $BDDAT , SGDDAT 
30$ ;BRANCH IF RMDA OK 


132 SECTOR COUNT NOT INCREMENT ING 
50$ ;OUT OF SYNC-SKIP TO NEXT 


EXPECTED SECTOR COUNT AND CONTINUE IF ONE CYCLE NOT 


024202 001140 INC $GDDAT ; INCREMENT EXPECTED SECTOR 
024206 001142 024460 ere a LAST SECTOR JUST COUNTED?? 


001140 SGDDAT 7 YES-NEXT SECTOR SHOULD BE ZERO 
001141 SGDDAT+1 ; INCREMENT TRACK ADDRESS 
001142 40$: $BDDAT HAS A FULL CYCLE BEEN COUNTED?? 
50$ :YES-DO NEXT 
25$ CONTINUE SECTOR TEST 


024202 


50$: 


es RRR REE REAR REEEREERERREEEEREREREREEEEEEEEKEEREREERERRERE 


[INCREMENT TRACK COUNT USING DIAGNOSTIC END OF BLOCK. START AT TRACK 0, 


“LAST SECTOR AND COUNT ONE COMPLETE TRACK CYCLE. 
013737 024460 001410 MOV 110$,RMDAO = STARTING TRACK ADDRESS 

024244 012737 000400 001140 MOV #000400,$GDDAT FIRST VALUE AFTER INCREMENT 
ee, * a 60$: 

-CLEAR THE MASSBUS 

"SET FORMAT 

“LOAD LAST SECTOR ADDRESS AND TEST TRACK ADDRESS 

"ENABLE DEBUG CLOCK 

"SET GO BIT 


024252 012760 000010 MOV AMCLR,RMCS2(RO) ;CLEAR THE MASSBUS 
024260 111160 00001 MOVB (R1),RMCS2(RO) ;SELECT UNIT 


024264 013760 000032 RMOFO,RMOF (RO) ;LOAD RMOF 
024272 013760 000006 RMDAO,RMDA(RO) ;LOAD RMDA 
024300 012760 000024 #DMD,RMMR1(RO) ;LOAD RMMR1 
024306 012760 000024 V ADMD ! DBEN,RMMR1 (RO) ;LOAD RMMR1 


024314 012760 000000 MOV #GO,RMCS1(RO)  ;LOAD RMCS1 
;CLOCK RMDA USING DIAGNOSTIC END OF BLOCK 


024322 012760 000024 MOV #DMD ! DBEN! DEBL ,RMMR1 (RO) ;LOAD RMR) 





N 13 
CZRMJCO RMO3/2 DSKLS PRT 1 MACY11 30A(1052) 21-AUG-78 09:22 PAGE 169 SEQ 0169 
CZRMJC.P11 21-AUG-78 09:19 137 RMDA COUNT TEST 


012760 040001 ADMD ! DBEN ,RMMR1 (RO) ;LOAD RMMR1 
; VERIFY RMDA ACCORDING TO $GDDAT 


016037 000006 RMDA(RO) ,SBDDAT ;STORE RMDA AT $B8DDAT 
001140 Saneat , SBDDAT 


133 ; TRACK COUNT NOT INCREMENT ING 
90$ OUT OF SYNC=SKIP TO NEXT 


; SETUP FOR ~ INCREMENT OF RMDA TRACK ADDRESS 
001141 SGDDAT+1 sADVANCE EXPECTED TRACK 
001143 SBDDATS1, AS wor! THE LAST TRACK JUST COUNTED?? 


8 
001140 SGDDAT 7; YES-NEXT TRACK, SECTOR SHOULD BE ZERO 
001142 001410 : ee ZHAS | A FULL CYCLE BEEN COUNTED?? 
7Y 


024460 001410 1S carts Z INCREMENT FROM LAST SECTOR 
024420 90$: 
TT rIr iii tiitiiiii iit iii iii 


[REPEAT THE TEST IN 16 BIT FORAT 
024420 010000 001434 BIT soon -RMOFO rest: BOTH FORMATS?? 


00 
010000 001434 #FMT16,RMOFO SET FORMAT BIT FOR 16 
000037 024460 *  - #037,110$ SET LAST SECTOR FOR 16 
000001 001140 ’ #1 ,SGDDAT :SET FIRST COUNT VALUE 
024452 024052 10$ REPEAT TEST 
024456 : 120$ 
024460 $ . STORAGE FOR LAST SECTOR VALUE 


024462 : sEND OF TEST 


RERRRRRRRRRRRR RRR 
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oO 
NN 
e+) 


EERE EER ERR RRR EERE EERE 


S*TEST 40 RMDC COUNT TEST 


FI IRI ERE RI IRE ERE 


024462 000004 TST40: 
024464 012737 000040 #40, $TESTN 7zSET TEST NUMBER IN APT MAIL BOX 


024472 
000024 #20. ,SICNT 320 ITERATIONS 
000001 #1, SERMAX ;ONE ERROR ALLOWED 
024524 001122 #T40,$LPADR ;LOAD LOOP ON TEST ADDRESS 
024524 001124 #T40,$LPERR ;LOAD LOOP CN ERROR ADDRESS 


000010 


ASTACK, SP 
$BASE ,RO 
TSTQUE ,R1 
#CLR,RMCS2 (RO) 


— THE STACK POINTER 
= UNIBUS ADDRESS OF UUT 


RI = POINTER TO DEVICE 


CLEAR THE MASSBUS 


024546 MOVB (R1).RMCS2(RO) :SELECT UNIT 
:CLEAR RMDC, SET FORMAT AND SETUP PROGRAM PARAMETERS 
024552 MOV $BDAD SETUP REGISTER ADDRESS 


001136 
RMOF 0 START WITH 18 BIT FORMAT 
001410 #002035,RMDAO ;LOAD LAST SECTOR/TRACK VALUE 
024576 012737 000001 001140 3 #1, $GDDAT LOAD FIRST INCREMENTAL VALUE 


024604 012760 000034 #0,.RMDC (RO) LOAD RMDC 
024612 013760 000032 RMOF 0, RMOF (RO) 


;LOAD RMOF 
aaeeke 013737 001174 RMOFO, $TMPO SAVE FOR ERROR MSG 


-CLEAR THE MASSBUS / 

-SET OFFSET } 

-LOAD LAST SECTOR AND TRACK ADDRESS 
“ENABLE DEBUG CLOCK 

-SET GO BIT 


024626 012760 000010 MOV ACLR,RMCS2(RO) 9 ;CLEAR THE MASSBUS 
024634 111160 MOVB (R1),RMCS2(RO) ;SELECT UNIT 


024640 013760 000032 RMOFO,RMOF (RO) ;LOAD RMOF 

024646 013760 000006 RMDAO,RMDA(RO) ;LOAD RMDA 

024654 012760 000024 #DMD,.RMMR1(RO) ;LOAD RMMR1 

024662 012760 000024 #DMD ! DBEN, RMMR1 (RO) ;LOAD RMMR1 


024670 012760 000000 #GO,RMCS1(RO)  ;LOAD RMCS1 
: CLOCK THE CYLINDER ADDRESS USING DEBL 


024676 012760 000024 MOV #DMD ! DBEN! DEBL ,RMMR1 (RO) ;LOAD RMMR1 
024704 012760 000024 MOV #DMD ! DBEN, RMMR1 (RO) ;LOAD RMMR1 


fan an in in en in an OA On ON A OO On On OR On Pe OH OD On 00 Of On 0D 0D Mn MN Mn 0D Mn 0D OD OD 0D OD 00 M0 09 Oo OD 00 No No OO Oo OD O0 Cd OD Oo OO Oo OO 





CZRMJCO RMO3/2 DSKLS PRT 1 
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CZRMJC.P11 


Geers 


025002 
025010 
025012 


025012 
025014 


025022 


025074 


025102 
025110 


025114 
025122 


032737 
001007 


000004 
012737 


012760 
111160 


012760 
012760 


000034 
001140 


000041 


000024 


000001 
025054 
025054 


000010 
000000 
002035 


MACY11 30A(1052) 
T40 


001434 


001434 
001410 


001226 


001136 


000010 


000032 
000006 


RMDC (RO) , SBDDAT 
$GDDAT , SBDDAT 
30$ 


140 
60$ 


C 14 
21-AUG-78 09:22 PAGE 171 
RMDC COUNT TEST 
;STORE RMDC AT SBDDAT 


BRANCH IF RMDC=RMDC+1 
CANT INCREMENT RMDC 


OUT OF SYNC-SKIP TO END 


30$: 
a oe RESULT FOR NEXT INCREMENT 


GDDAT 
#1777+1 ,SGDDAT 
40$ 


40$: 


50$: 
;REPEAT 16 BIT MODE-ELSE DONE 
BIT RMOFO Aa'ot BOTH MODES?? 


#FMT16, 
$ 


60 
#FMT16, RMOFO 
#002037, RMDAO 


60$: 


ADVANCE NEXT RESUL 
: SHOULD NEXT VALUE Be ZERO?? 


7 YES-RMDC SHOULD OVERFLOW 
eS ONE CYCLE COMPLETE?? 


svES! 
‘CONTINUE 


SET 16 BIT FORMAT 
;LOAD LAST SECTOR/TRACK VALUE 
:REPEAT TEST 


END OF TEST 


FL III II II II II IT TI III IK RIKER RRR ERE 


z*TEST 41 LBT TEST 


es sssseulgscenesusenncueceuesenscusnunsenecnsnunennsnunanesessss 


TST41: 
#41,$TESIN 


#20. ,$1CNT 
#1, SERMAX 

4141, $LPADR 
#741, $LPERR 


ASTACK , SP 
$BASE ,R 


DD 
CLEAR THE MASSBUS 
SET FORMAT 


72SET TEST NUMBER IN APT MAIL BOX 


320 ITERATIONS 
[ONE ERROR AL 


ALLOWED 
;LOAD LOOP ON TEST ADDRESS 
;LOAD LOOP ON ERROR ADDRESS 


;LOAD THE STACK POINTER 


;RO = UNIBUS ADDRESS OF UUT 
= POINTER TO DEVICE 


> SETUP REGISTER ADDRESS 


LOAD LAST TRACK AND SECTOR 


LOAD LAST CYLINDER 


— THAT ‘BT’ IS RESET 


ACLR,RMCS2(RO) 
(R1) ,RMCS2(RO) 


#0 ,RMOF (RO) 


#002035 ,RMDA(RO) 


:CLEAR THE MASSBUS 
ZSELECT UNIT 


;LOAD RMOF 


;LOAD RMDA 


SEQ 0171 


8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
&g 
8 
8 
8 
g 
8 
g 
8 
é 
g 
& 
g 
é 
g 
& 
g 
é 
g 
é 
g 
é 
é 
é 
é 
é 
é 
é 
é 
é 
é 
é 
é 
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012760 001466 000034 #822.,RMDC(RO) ;LOAD RMDC 


016037 000012 001142 MO RMDS(RO) ,SBDDAT ;STORE RMDS AT $BDDAT 
175777 001142 #*CLBT , SBDDAT 
10$ ;BRANCH IF LBT te — 


001140 g $GDDAT ;LBT SHOULD BE 2 
141 ; CANNOT RESET pr 


025162 
ENABLE DEBUG CLOCK 
ET GO 


SET G 
FORCE EBL 
VERIFY THAT LBT IS SET 
025162 012760 000001 000024 ADMD,RMMR1(RO) ;LOAD RMMR1 
025170 012760 000000 000014 #0,RMER1 (RO) ;LOAD RMER1 
025176 012760 000000 000042 #0 ,RMER2 (RO) LOAD RMER2 
025204 012760 000001 000000 #GO,RMCS1(RO) ;LOAD RMCS1 
025212 012760 060001 000024 #DMD ! DBEN! DEBL ,RMMR1 (RO) LOAD RMMR1 
025220 012760 040001 000024 ADMD ! DBEN,.RMMR1 (RO) LOAD RMMR1 


025226 016037 000012 001142 RMDS(RO),,SBDDAT ;STORE RMDS AT $BDDAT 
0252 175777 + 001142 #*CLBT , SBDDAT 
;BRANCH IF LBT IS SET 


20$ 
002000 001140 ALBT ,SGDDAT 
025252 104142 142 CANT SET LBT 


025254 20$: END OF TEST 


FL II II III II ITI ITER IER EERE RARER EERE EERE REE EH 


Z*TEST 42 COMPOSITE ERROR TEST 


FI II TIT IOI IOI IOI ITI IO TO TO TOTO IO TOR TOS IO TO TOTO TIT TT TTT RRR I 


025254 000004 TST42: 
025256 012737 000042 001226 MOV #42, $TESTN 3:SET TEST NUMBER IN APT MAIL BOX 


000024 001120 #20. ,S$1CNT 320 ITERATIONS 

000001 #1, SERMAX ONE ERROR ALLOWED 
025316 MO #142,$LPADR ;LOAD LOOP ON TEST ADDRESS 
025316 001124 #742,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


001100 STACK, SP ;LOAD THE STACK POINTER 
001276 SBASE ,RO :RO = UNIBUS ADDRESS OF UUT 
001456 TSTQUE ,R1 R1 = POINTER TO DEVICE 
000040 000010 MOV #CLR,RMCS2(RO) :CLEAR THE MASSBUS 
000010 l (R1)-RMCS2(RO) ;SELECT UNIT 
001136 MO RO, $BDADR 7SETUP REGISTER ADDRESS 
025350 000012 001136 ADD #RMDS , SBDADR 
USING DIAGNOSTIC MODE, CLEAR ALL ERRORS AND VERIFY THAT COMPOSITE 


fa fn On fn On fn Mn Mn On 00 Mn On Mn On 00 0 Mn 00 Mn 00 O0 Mo 00 O0 00 CO OO Go OO CO OO Go OO OD CO C0 0 OO G0 Oo CO OO OO Oo C2 C2 C2 Co OO Co OO Co 02 OO CO CO 
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;ERROR IS RESET. 
025356 012760 000001 000024 #DMD,RMMR1(RO) ;LOAD RMMR1 
025364 012760 000000 000014 #0 ,RMER1 (RO) ;LOAD RMER1 
025372 012760 000000 000042 #0 ,RMER2 (RO) ;LOAD RMER2 


016037 000012 001142 RMDS(RO),$BDDAT ;STORE RMDS AT S$BDDAT 
137777 001142 #*CERR, $BDDAT 
BRANCH IF ERR IS RESET 


10$ 
001140 SGDDAT 
143 ;CANT READ ZERO FROM ERR 
025424 012737 040000 001140 10$: MOV #ERR,$GD 
;SET BOTH ERROR REGISTERS. AND VERIFY THAT COMPOSITE ERROR IS SET 
025432 012760 177777 000014 MOV #-1,RMER1(RO) ;LOAD RMERI 
025440 012760 177777 000042 MOV #-1,RMER2(RO) ;LOAD RMER2 
025446 016037 000012 001142 MOV RMDS(RO) ,SBDDAT ;STORE RMDS AT S$BDDAT 
137777 001142 BIC #*CERR,$BDDAT 
BNE 20$ BRANCH IF ERR IS SET 
ERROR 144 CANT SET ERR 


: THAT COMPOSITE ERROR SETS FOR EACH BIT OF RMER1 
012702 000001 MOV #1,R2 ; INITIALIZE TEST PATTERN 


025472 
: WRITE THE TEST PATTERN AND VERIFY THAT ERR IS SET 
025472 012760 000040 MOV ACLR,RMCS2(RO) ;CLEAR THE MASSBUS 
025500 111160 000010 (R1),RMCS2(RO) ;SELECT UNIT 
025504 012760 000001 #DMD,RMMR1(RO) ;LOAD RMMR1 
025512 012760 000000 #0 ,RMER1 (RO) ;LOAD RMER1 
025520 012760 000000 #0 ,RMER2 (RO) ;LOAD RMER2 
025526 010260 000014 R2,RMER1 (RO) ;LOAD RMER1 
025532 016037 000012 RMDS(RO) ,SBDDAT ;STORE RMDS AT $BDDAT 
137777 #*CERR,$BDDAT 
40$ ;BRANCH IF COMPOSITE ERROR SET 
001174 R2,$TMPO SAVE RMER1 TEST PATTERN 
001176 CL $TMP1 SAVE RMER2 TEST PATTERN 
; 145 ;ERR NOT SET BY RMER1 ERROR 
a he TEST PATTERN FOR RMER1 
L e 
BNE 30$ CONTINUE IF TEST NOT DONE 


: THAT COMPOSITE ERROR SETS FOR EACH BIT OF RMER2 
012702 MOV #1,R2 INITIALIZE TEST PATTERN 


WRITE THE TEST PATTERN AND VERIFY THAT ERR IS SET 


Oo 
™ 
2 


025560 
025562 
025562 


025566 
025572 
025572 012760 ‘ MOV #CLR,RMCS2(RO) ;CLEAR THE MASSBUS 


On On On 00 C0 Mn 00 Mn 00 Oo On 00 Co 00 00 Oo 00 00 Co 00 Co Co Od 00 CO Od C0 Oo 00 Oo O0 Co OO 0 20 OO Oo 0 Go GO Oo Qo OO Qo QO Go QO Go O02 Oo 0 Qo OO 0 90 Oo 
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025600 111160 000010 (R1),RMCS2(RO) ;SELECT UNIT 
025604 012760 000001 000024 #DMD,RMMR1(RO) ;LOAD RMMR1 
025612 012760 000000 #0 ,,RMER1 (RO) ;LOAD RMER1 
025620 012760 #0 ,RMER2 (RO) ;LOAD RMER2 
025626 010260 R2,RMER2 (RO) LOAD RMER2 
025632 016037 000012 RMDS(RO),$BDDAT ;STORE RMDS AT $8DDAT 
737 #*CERR,S$BDDAT 
MERR,$SGDDAT ;SETUP EXPECTED VALUE FOR COMP ERROR 
AXNUER2 ,R2 
65$ BRANCH IF TEST BIT IS A USED BIT 
001140 $GDDAT TEST BIT IS NOT USED - ERR SHOULD BE 0 
001140 $: $GDDAT , $BDDAT 
70$ ;BRANCH IF COMP ERROR IS OK 
001174 $TMPO SAVE RMER1 TEST PATTERN 
001176 MOV R2,$TMP1 SAVE RMER2 TEST PATTERN 
145 SERR NOT SET BY RMER2 ERROR 
025710 
ADVANCE THE TEST PATTERN FOR RMER2 
025710 ASL R2 
025712 001327 BNE 60$ ; CONTINUE IF TEST NOT DONE 
025714 : END OF TEST 


DIDO ISISISIIISIIIIIIIDIDIOIOIDIDIITIDIDIDIOIOIOIOIIOIOI IOI TI OIOIOI TOI ITO TOR TTT TOT TOT TIT IAT 
i*TEST 43 WRITE GO TEST 


J RIKER ERE RRR EKER EERE REE EEE EH 


025714 000004 5 143: SCOPE 
025716 012737 000043 001226 MOV #43,$TESIN 73SET TEST NUMBER IN APT MAIL BOX 


025724 


001120 #20. ,$ICNT 320 ITERATIONS 
#1, SERMAX ;ONE ERROR ALLOWED 
#1T43,$LPADR ;LOAD LOOP ON TEST ADDRESS 
012737 001124 #T43,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


012706 ASTACK, SP ;LOAD THE STACK POINTER 
$BASE .RO ;RO = UNIBUS ADDRESS OF UUT 
TSTQUE ,R1 :R1 = POINTER TO DEVICE 
001136 RO, $BDADR = COPY RMCS1 ADDRESS 
— R2 ; INITIALIZE FUNCTION CODE 


CLEAR THE MASSBUS, SET DIAGNOSTIC MODE AND ENABLE DEBUG CLOCK 
012760 000040 000010 MOV #CLR,RMCS2(RO) ;CLEAR THE MASSBUS 
111160 000010 (R1);RMCS2(RO) SELECT UNIT 
026012 012760 000001 000024 #DMD,.RMMR1(RO) ;LOAD RMMR1 


026020 012760 041001 000024 #DMD !DBEN!MUR,RMMR1(RO) ;LOAD RMMR1 
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026026 012760 000000 000014 MOV #0 ,RMER1 (RO) ;LOAD RMER1 


026034 012760 000000 000042 MOV #0 ,RMER2 (RO) ;LOAD RMER2 

; TRANSFER THE FUNCTION CODE AND GO BIT TO RMCS1, VERIFY GO IS SET 
026042 010203 MOV R2,R3 SETUP FUNCTION CODE 
026044 052703 000001 BIS #60,R3 


010240 000000 MOV R3,RMCS1(RO) ;LOAD RMCS1 


016037 000000 001142 MOV RMCS1(RO), " esse: STORE RMCS1 AT $BDDAT 
000001 001142 BIT #GO , $BDDAT 
0 CH IF GO IS SET 


BNE 20$ ; BRAN 

:REPORT THE ERROR-CANT SET GO WITH THIS FUNCTION CODE 

177700 001142 BIC #*CFNCMSK , $BDDAT 

001140 MOV R3,$GDDAT SAVE FUNCTION CODE 
ERROR 146 CANT SET GO 


BR 30$ 
026110 20$: 
ADVANCE R2 TO THE NEXT FUNCTION CODE 
026110 ADD #2,R2 


026114 CMP #ILF 76, R2 
026120 103327 BHIS 10$ 


026122 30$: sEND OF TEST 


Zs EERE EEE EERE 


s*TEST 44 BRANCH MULTIPLEXOR TEST 


DUAR UII IOISIIIIIIISIIIIIOIIIOIIDIDIOIDIOIDIOIOIUIDIDIIOIIIOIIIIOIIOIITIOI TOIT TOT TOT TOT TOT OTE 
026122 000004 TST44: 
026124 012737 000044 001226 444 ,$TESTN 72SET TEST NUMBER IN APT MAIL BOX 


026132 


000024 001120 #20. ,$1CNT 320 ITERATIONS 

000001 001131 #1, SERMAX ;ONE ERROR ALLOWED 
026164 001122 #144,$LPADR ;LOAD LOOP ON TEST ADDRESS 
026164 001124 #T44,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


001100 ASTACK, SP LOAD THE STACK POINTER 
RO ;RQO = UNIBUS ADDRESS OF UUT 
:R1 = POINTER TO DEVICE 
COPY REGISTER ADDRESS 
001136 


# 
026212 012702 MOV 100$.R2 INITIALIZE TABLE POINTER 
anasee :CLEAR THE MASSBUS AND SET DEBUG CLOCK ENABLE 


026216 012760 000010 MOV ACLR,RMCS2(RO) ;CLEAR THE MASSBUS 
026224 111160 (R1)-RMCS2(RO) ;SELECT UNIT 


026230 012760 000024 ADMD,RMMR1(RO) ;LOAD RMMR1 
026236 012760 000024 #DMD ! DBEN!MUR,RMMR1(RO) ;LOAD RMMR1 
026244 012760 000014 #0 ,RMER1 (RO) ;LOAD RMER1 
026252 012760 000000 000042 #0 ,RMER2 (RO) ;LOAD RMER2 
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CZRN 
C2RMJC.P1121=AUG-78 09: 19 144 BRANCH MULTIPLEXOR TEST CZRN 
:THE TEST BIT SHOULD BE ONE BECAUSE THE ADDRESS IS ALL ONES WHEN 8S 

‘THE COMMAND SEQUENCER IS INITIALIZED. 85 

026260 016037 000040 001142 RMMR2 (RO) , SBDDAT :STORE RMMR2 AT $BDDAT 8S 
026266 010000 001142 #TST, $BDDAT 8S 
15$ ;BRANCH IF TEST BIT IS ON 8S 

167777 001142 #*CTST,$BDDAT :SETUP FOR ERROR TYPE 8S 

010000 001140 MOV #TST,$SGDDAT 8S 

147 :TEST BIT NOT SET 8S 

40$ “SKIP REST OF TEST 8S 

026316 15$: 8S 
:GET THE FUNCTION CODE FROM THE TABLE AND TRANSFER IT TO THE DEVICE, 8S 

‘THEN STEP THE COMMAND SEQUENCER ACCORDING TO THE TABLE. s 

026316 (R2) ,R3 8S 
026320 000001 #G0,R3 85 
026324 177700 #*CFNCMSK,R3 —«: R3=FUNCTION CODE, GO BIT 8: 
026330 000000 R3,RMCS1 (RO) :LOAD RMCS1 RC 
010337 001174 R3.$TMPO > SAVE RS FOR ERROR MSG 8: 

116203 000001 1(R2) ,R3 :GET CLOCK COUNT IN R3 8S 

042703 177400 #°(377,R3 8° 

026350 8° 


026350 012760 141001 000024 ADMD ! DBEN! MUR ! DBCK ,RMMR1 (RO) ;LOAD RMMR1 


026356 012760 041001 000024 ADMD! DBEN!MUR,RMMR1(RO) ;LOAD RMMR1 
026364 005203 R3 ;DECREMENT CLOCK COUNT 


6 
026366 001370 BNE 20$ ISSUE CLOCKS TILL ZERO 


;GET THE TEST BIT AND COMPARE IT WITH THE TABLE ENTRY 


026370 016037 000040 001142 RMMR2 (RO), — STORE RMMR2 AT $BDDAT 
167777 001142 #°CTST,SBDDAT 
000002 001140 2(R2) , $GDDAT 
001140 001142 $GDDAT , SBDDAT 
30$ BRANCH IF TEST BIT 


OK 
150 STEST BIT IS_ INCORRECT 
40$ :SKIP REST OF TEST 


POINTER AND CONTINUE IF NEXT ENTRY POSITIVE 
000004 #4 ,R2 
000001 
;BRANCH IF DONE TEST 
;REPEAT TEST 
40$: JUMP OVER TABLE 


100$: 
; TABLE OF FUNCTION CODES, CLOCK COUNTS, AND TEST BITS 
BYTE NOP s;MUX ADDRESS=DATA COMMAND 


001 rte 4% 
000000 -WORD 0 :TEST BIT=0 


OO 0 0 0 30 20 10 0 0 20 90 30 90 0 30 10 10.90 30 10 10 0 0 90 30 10 0 10 0 02. 00 
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000 «BYTE - MUX ADDRESS=UNIT READY 
00 -BYTE 
. WORD TEST BIT=0 


-BYTE DRVCLR >MUX ADDRESS=F4 
arTe 3 
. WORD TEST BIT=1 


-BYTE 7MUX ADDRESS=F4 
VTE 7 
. WORD ; TEST BIT=0 


.BYTE RLEASE ;MUX ADDRESS=F4 
“BYTE 1 
“WORD TST :TEST BIT=1 


-BYTE WCH ;MUX ADDRESS=F4 
-BYTE 1 
-WORD 0 TEST BIT=0 


«BYTE RIP ;MUX ADDRESS=F4 
VTE 7 
«WORD TST ; TEST BIT=1 


-BYTE wD 3MUX ADDRESS=F4 
-BYTE 
. WORD TEST BIT=0 


By 


-BYTE ;MUX ADDRESS=F4 
“BYTE 1 
. WORD ;TEST BIT=1 


026510 -BYTE 3MUX ADDRESS=F4 
026511 -BYTE 
026512 . WORD TEST BIT=0 


026514 -BYTE ;MUX ADDRESS=F4 
026515 001 OVTE 1 
026516 « WORD ; TEST BIT=1 


026520 .BYTE MUX ADDRESS=F4 
026521 1 BYTE 1 
026522 . WORD TEST BIT=0 


026524 -BYTE ;MUX ADDRESS=F4 
026525 -BYTE 1 
026526 . WORD TEST BIT=1 


-BYTE - ;MUX ADDRESS=F4 
-BYTE 

. WORD TEST BIT=0 
-BYTE sEND OF TABLE 
-BYTE 


0265 . WORD 
026540 200$: END OF TEST 


2227000 000000000000 2000 00 O00 LOL LL LL LLL LE SLL LELSSESLESESELSE 
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an 
NN 
22 


TPR PPE SERSSLSSALASS EES SRR RES ERR RRR SRR RAS ARRAS RRR ARRAS RASS SD OSD 


SATEST 45 SET/RESET GO TEST 


SII III IIIS IICIIIIDIOIIIIDIISIIOIIIIUIIIOIIIOIOIUI TOO i itt 
026540 000004 TST45- 
026542 012737 001226 MOV #45, $TESTN 7zSET TEST NUMBER IN APT MAIL BOX 


026550 
001120 #20. ,SICNT 320 ITERATIONS 
001131 #1,$ERMAX [ONE ERROR ALLOWED 
001122 #T45,$LPADR ;LOAD LOOP ON TEST ADDRESS 
001124 #T45,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


AMSTACK ,SP ;LOAD THE STACK POINTER 
$BASE ,RO : 
TSTQUE ,R1 C 
012702 027240 MOV #200$,R2 INITIALIZE FUNCTION CODE POINTER 
:CLEAR, THEN SET DIAGNOSTIC MODE, CLEAR COMPOSITE ERROR, SET MEDIUM 
ion LINE AND ENABLE DEBUG CLOCK 


012760 000040 000010 MOV AMCLR,RMCS2(RO) ;CLEAR THE MASSBUS 
111160 000010 MOVB (R1),RMCS2(RO) ;SELECT UNIT 


012760 000001 000024 #DMD,.RMMR1(RO) ;LOAD RMMR1 

012760 041001 000024 #DMD ! MUR! DBEN,RMMR1(RO) ;LOAD RMMR1 

012760 000000 000014 #0,RMER1 (RO) ;LOAD RMER1 

012760 000000 000042 MOV #0 ,RMER2 (RO) ;LOAD RMER2 

; TRANSFER THE FUNCTION CODE AND GO BIT TO RMCS1 AND VERIFY GO IS SET 

111203 MOVB (R2) ,R3 GET FUNCTION CODE 

042703 177701 #°CILF76,R3 [CLEAR UNUSED BITS 

052703 000001 #G0,R3 SET GO 

010366 000000 R3,RMCS1(RO) LOAD RMCS1 


016037 00000 001142 RMCS1(RO), " want STORE RMCS1 AT $BDDAT 
000001 001142 #GO,$8DDAT 
;BRANCH IF GO IS SET 


20$ 
177700 001142 #*CFNCMSK ,SBDDAT™ 
001140 R3,$GDDAT SAVE EXPECTED RESULT 
001136 MOV RO, $BDADR [COPY REGISTER ADDRESS 
151 CANT SET GO 
026740 BR 100$ 


026742 


SSSSSESESSSESSES 


20$: 

GET READY STATUS AND VERIFY THAT IT IS THE cone OF GO 
026742 001140 CLR SGDDAT s EXPECT re TO BE OFF 

000001 001142 #60. - SBDDAT WAS GO SET? 


00 5 Ves: ! 
012737 000200 001140 A#DRY , SGDDAT :GO WAS NOT SET, DRY SHOULD BE 


016037 000012 001142 RMDS(RO),$BDDAT ;STORE RMDS AT $BDDAT 
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026772 177577 =001142 #*CDRY , SBDDAT 
027000 001140 001142 $GDDAT , $BDDAT 
0$ ANCH IF DRY IS OK 


4 ;BRAN 
001136 RO, $8DADR ;COPY REGISTER ADDRESS 
000012 001136 D #ARMDS , SBDADR 

152 ;DRY NOT COMPLEMENT OF GO 


027024 40$: 
STEP THE DEBUG CLOCK AND VERIFY THAT GO REMAINS SET 
027024 000001 MOVB 1(R2) ,R4S ;GET NUMBER OF CLOCK CYCLES 
177400 50s BIC #*C 377 ,R4 


012760 000024 #DMD ! MUR ! DBEN! DBCK , RMMR1 (RO) LOAD RMMR1 
012760 000024 #DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 


027050 016037 000000 001142 RMCS1(RO) , SBDDAT STORE RMCS1 AT $BDDAT 

027056 042737 001142 i peau” SBDDAT ;CLEAR UNUSED BITS 

027064 010037 RO, $8) ;SETUP REGISTER ADDRESS 

027070 010337 MOV R3, SGDDAT SAVE EXPECTED RESULT 
;DECREMENT CLOCK COUNT AND EXIT LOOP IF ZERO 

027074 DEC RG 


60$ 

001142 #G0,$BDDAT :IS GO STILL SET?? 
50$ sYES: 
153 [GO RESET EARLY 


100$ TOUT OF SYNC=SKIP TO NEXT 
027114 


60$: 
:GO SHOULD NOW BE RESET AND DRY SHOULD BE SET 
027114 001142 BIT ot - SBDDAT ‘test? RESET?? 


001140 IC — :SETUP EXPECTED RESULT 


[GO DID NOT RESET 
100$ 


001140 A#DRY , SGDDAT EXPECT ah oo TO BE SET 
001142 or Ait GO RESET? 


80 
$GDDAT :GO0 IS SET- 


001142 RMDS(RO) ,$BDDAT ;STORE RMDS AT SBDDAT 
001142 #*CDRY , SBDDAT 

RO,$BDADR ;COPY REGISTER ADDRESS 
001136 #RMDS , SBDADR 
001142 er Le DRIVE READY OK?? 


9 3 z3 
152 DRY NOT COMPLEMENT OF GO 


027220 90$: 
ADVANCE TO THE NEXT FUNCTION CODE TO BE TESTED-EXIT IF DONE 
027220 ADD #2,R2 :MOVE TABLE POINTER 
000001 a at Th OF TABLE?? 
026622 JMP TEST THIS FUNCTION CODE 
[GO TO NEXT TEST 
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8469 027240 

8470 

8471 

8472 027240 002 
8473 027241 001 
8474 

8475 027242 004 
8476 027243 001 
8477 

8478 027244 006 
8479 027245 001 
8480 

8481 027246 014 
8482 027247 001 
8483 

8484 027250 016 
8485 027251 001 
8486 

8487 027252 024 
8488 027253 001 
8489 

8490 027254 026 
891 027255 001 
8492 

8493 027256 034 
8494 027257 001 
8495 

8496 027260 036 
8497 027261 001 
8498 

8499 027262 042 
8500 027263 001 
8501 

8502 027264 044 
8503 027265 001 
8504 

8505 027266 046 
85 027267 001 
8507 

8508 027270 054 
8509 027271 001 
8510 

8511 027272 056 
8512 027273 001 
8513 

8514 027274 064 
8515 027275 001 
8516 

8517 027276 066 
8518 027277 001 
8519 

8520 027300 074 
8521 027301 001 
8522 

8523 027302 076 
8524 027303 001 


L 14 
MACY11 — 21-AUG=78 09:22 PAGE 180 


SET/RESET GO TEST 


2008: 


PERSE SSSL£ALALELESLSS MS SSS ESSERE SERRE SAAR SRSA SSAA RR RRS SDS DS 


STABLE OF FUNCTION CODES AND CLOCK COUNTS USED DURING TEST 
«BYTE  ILFO2 ILLEGAL FUNCTION CODE #2 


-BYTE 


-BYTE 
-BYTE 


-BYTE 
-BYTE 


-BYTE 
-BYTE 


-BYTE 
-BYTE 


-BYTE 
-BYTE 


-BYTE 
-BYTE 


-BYTE 
-BYTE 


-BYTE 
-BYTE 


-BYTE 
-BYTE 


-BYTE 
-BYTE 


-BYTE 
-BYTE 


-BYTE 
-BYTE 


-BYTE 
-BYTE 


-BYTE 
-BYTE 


-BYTE 
-BYTE 


-BYTE 
-BYTE 


-BYTE 
-BYTE 


SEEK 
: 
RECAL 
' 

OFF SET 
: 

RTC 

, 

ILF 24 
: 

ILF 26 
; 
ILF34 
: 
ILF36 
: 
ILF42 
: 
ILF44 
1 
ILF46 
; 
ILF54 
1 

ILF 56 
: 
ILF64 
; 
ILF66 
1 
ILF74 
1 


ILF76 
| 


7 ILLEGAL 


; ILLEGAL 


7 ILLEGAL 


; ILLEGAL 


: ILLEGAL 


; ILLEGAL 


7 ILLEGAL 


: ILLEGAL 


; ILLEGAL 


; ILLEGAL 


ILLEGAL 


7 ILLEGAL 


; ILLEGAL 


SEEK COMMAND 


OFFSET COMMAND 


;RETURN TO CENTER 


FUNCTION 


FUNCTION 


FUNCTION 


FUNCTION 


FUNCTION 


FUNCTION 


FUNCTION 


FUNCTION 


FUNCTION 


FUNCTION 


FUNCTION 


FUNCTION 


FUNCTION 


;RECALIBRATE COMMAND 


LINE 


CODE 


CODE 


CODE 


CODE 


CODE 


CODE 


CODE 


CODE 


CODE 


CODE 


CODE 


CODE 


CODE 


COMMAND 


#24 


#26 


#34 


#36 


#42 


Aas 


#46 


#54 


#56 


#64 


#66 


#74 


#76 


SEQ 0180 
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027304 000 -BYTE END OF TABLE 
027305 377 -BYTE #1 


027306 300$: END OF TEST 


“he PARR SESSAELSSLSLLSE SESE SESS SEE RS RRR ERR R RRS SERS RASA RRS R SADR SDSS SS 


T*TEST 46 END 1 RESET GO TEST 


DBASE ISIS IOIOIIOIUIOISIS IIIS OIISIIOIOISIUIEOIIOIOIIOIIOIIIOIIOISIUIIIOIIOOIIIUOI 
027306 000004 TST46: 
027310 012737 000046 #46,$TESTN 77SET TEST NUMBER IN APT MAIL BOX 


027316 
000024 #20. ,S1CNT 320 ITERATIONS 
000001 #1, SERMAX ;ONE ERROR ALLOWED 
027350 #T46,$LPADR ;LOAD LOOP ON TEST ADDRESS 
027350 #T46,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


AMSTACK, SP ;LOAD THE STACK POINTER 

SBASE ,RO :RO = UNIBUS ADDRESS OF UUT 

TSTQUE ,R1 :R1 = POINTER TO DEVICE 
027364 #100$,R2 INITIALIZE TABLE POINTER 
027370 RO, $BDADR [COPY RMCS1 ADDRESS 


027374 10$: 
;CLEAR MASSBUS, THEN SET MEDIUM ON LINE AND ENABLE DEBUG CLOCK 


027374 012760 000010 MOV ACLR,RMCS2(RO) ;CLEAR THE MASSBUS 


027402 111160 MOVB (R1),RMCS2(RO) ;SELECT UNIT 
027406 012760 000024 #DMD,RMMR1(RO) ;LOAD RMMR1 
027414 012760 000024 #DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
027422 012760 000014 #0,RMER1 (RO) LOAD RMER1 
012760 000042 MOV #0 ,RMER2 (RO) ;LOAD RMER2 
; TRANSFER THE FUNCTION CODE AND GO BIT TO RMCS1, VERIFY GO IS SET 
111203 MOVB (R2) ,.R3 :GET FUNCTION CODE FROM 
042703 177701 #°CILF76,R3 ; TABLE AND SET GO 
052703 000001 #G0,R3 
027450 010337 001140 R3,$GDDAT SAVE FUNCTION CODE FOR MSG 
027454 010360 000000 R3,RMCS1(RO) ;LOAD RMCS1 


016037 000000 001142 RMCS1 oe af gaueet STORE RMCS1 AT S$BDDAT 
000001 001142 #G0,$8DDA 
BN $ ;BRANCH IF GO IS SET 


20 
177700 001142 #°CFNCMSK ,SBDDAT. 
151 :GO DID NOT SET 
60$ ZOUT OF SYNC=SKIP 
027510 20$: 
GET THE NUMBER OF CLOCK CYCLES FROM THE TABLE, SAVE EXPECTED STATUS 
027510 000001 MOVB 1(R2) ,R4 3R4=CLOCK COUNT 


027514 177400 BIC #*C377,R4 
027520 30S: 
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CZRMJC.P11 


027520 
027526 


027570 
027570 
027576 
027600 
027606 
027610 
027612 


027612 


027626 
027630 
027630 
027631 


027632 
027633 


027634 
027635 


027636 


027637 
027640 


027640 
027642 


027650 
027652 
027660 
027666 


012760 
012760 
016037 

2737 


000004 
012737 


012737 


141001 
041001 


000000 
177700 


000001 


000047 


000024 
000001 
027702 
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000024 
000024 
001142 
001142 


001142 


001142 
001140 


001226 


001120 
001131 
001122 


END 1 RESET GO TEST 


STEP THE DEBUG CLOCK AND VERIFY GO STATUS ON UNTIL CLOCK COUNT EXPIRES. 


#DMD ! MUR ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
#DMD !MUR!DBEN,RMAR1(RO) ;LOAD RMMR1 


RMCS1(RO) , SBDDAT STORE RMCS1 AT $BDDAT 
aatrsatnperetignaci 


BRANCH IF GO SHOULD BE OFF 


40$ 

#GO,$BDDAT 

30$ CONTINUE IF ; IS ON 
153 :GO RESET EAR 

608 60$ SOUT OF SYNC-SKIP 


VERIFY RESET AT END1 
BI #GO,$8DDAT :DID GO RESET?? 
50$ svES!' 


#GO,$GDDAT 
154 
60$ 
50$: 
7GET THE NEXT FUNCTION CODE FROM THE TABLE 
ADD #2,R2 


:GO NOT RESET AT END1 


BRANCH IF END OF TABLE 
;TEST THIS FUNCTION CODE 
60$: ; JUMP OVER TABLE 


100$: 
; TABLE OF FUNCTION CODES AND CLOCK COUNTS USED DURING TEST 


-BYTE RLEASE RELEASE COMMAND 
-BYTE 2 


~—— ; SEARCH COMMAND 
he 7aLLEGAL FUNCTON #32 


a1 END OF TABLE 
200$: END OF TEST 


FL RARER EERE EEK ERE REE KEKEEEKEEKK RERKEKEKEEKRAKKEEKREREEKEKE 


z*TEST 47 SET PULSE TEST 


TST47: SCOPE 
MOV 


SIRIUS IIUIOIUIISISITIEIIOIISII IOI IOISIOIDIOIIOIIIOIOIUIDIOIOIOIIOIDIDIOIOIDIII III 
#47 ,STESTN 7zSET TEST NUMBER IN APT MAIL BOX 
#20. moe 720 Bb mld ry 


#1, SERMA [ONE ERROR ALLOWED 
#147, SLPADR ;LOAD LOOP ON TEST ADDRESS 


SEQ 0182 
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027674 012737 027702 001124 #147,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


147: 
#STACK, SP sLOAD THE STACK POINTER 
$BASE ,RO 
TSTQUE ,R1 é 
RO,$BDADR ;COPY REG ADDRESS FOR MSG 
000024 001136 #RMMR 1, SBDADR 
012702 030174 #100$,R2 s INITIALIZE TABLE POINTER 


10$: 
:CLEAR THE MASS BUS, ENABLE DEBUG CLOCK, AND RESET ERROR REGISTERS 
012760 000040 000010 MOV MCLR,RMCS2(RO) ;CLEAR THE MASSBUS 
027742 111160 000010 (R1),RMCS2(RO) ;SELECT UNIT 


027746 012760 000001 000024 #DMD,RMMR1(RO) ;LOAD RMMR1 
027754 012760 041001 000024 ADMD! DBEN!MUR,RMMR1(RO) ;LOAD RMMR1 
027762 012760 000000 000014 #0,RMER1 (RO) ;LOAD RMER1 


027770 012760 000000 000042 MOV #0 ,RMER2 (RO) ;LOAD RMER2 
;VERIFY THAT CONTINUE, ‘‘CONT’’ IS RESET AFTER CLEAR 


027776 016037 000024 001142 RMMR1 (RO), $BDDAT STORE RMMR1 AT S$B8DDAT 
030004 177677 001142 #*CCONT, SBDDAT 
208 BRANCH IF CONT WAS CLEARED 
001140 $GDDAT :FOR ERROR MSG 
ie CANT CLEAR CONTINUE 


ono 
~eN 


20$: 
:GET THE FUNCTION CODE FROM THE TABLE AND TRANSFER IT TO RMCS1 
MOVB (R2) ,R3 


000001 BIS #G0,R3 
177700 BIC #*CFNCMSK ,R3 ;R3=FUNCTION CODE AND GO 


000000 MOV R3,RMCS1 (RO) = LOAD RMCS1 
010337 001174 MOV R3,$TMPO SAVE FUNCTION CODE FOR MSG 
:GET THE CLOCK COUNT FROM THE TALE 
116203 MOVB 1(R2) ,R3 


000001 
042703 177400 BIC #*(377,R3 
:GET THE BIT STREAM FOR CONTINUE FROM THE TABLE 
016204 000002 MOV 2(R2) ,R4 


30$: 
:STEP THE COMMAND SEQUENCER AND VERIFY CONTINUE STATUS 
012760 141001 000024 #DMD ' DBEN! MUR ! DBCK ,RMMR1 (RO) :LOAD RMMR1 
012760 041001 000024 ADMD 'DBEN'MUR,RMMR1(RO) ;LOAD RMMR1 
016037 000024 001142 RMMR1 (RO) , SBDDAT ;STORE RMMR1 AT SBDDAT 
2737 177677 001142 DAT 
001140 DAT :GENERATE EXPECTED CONTINUE 
000001 4 
000100 001140 #CONT ,SGDDAT 


001140 001142 3 $GDDAT , $BDDAT 
030140 50$ ;BRANCH IF CONTINUE IS OK 


a a a a a a a a a ae a a oe -  - - a a ww we a oe wa Ww mw Ww mw ww mw ww we we Oe 
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062702 
105762 
100401 


000661 
000442 


15 
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SEQ 0184 


CONTINUE IS INCORRECT 
KIP 


50$: 
catpaty~ "secrmey™ pep AND SHIFT BIT STREAM 


;BRANCH IF CLOCK COUNT EXPIRED 
SHIFT TO NEXT CONTINUE BIT 
TEST NEXT CLOCK CYCLE 


EXIT IF CLOCK COUNT NEGATIVE 
INUE TEST 


09:19 147 SET PULSE TEST 
ERROR 156 
BR 70$ 
BEQ 60$ 
ASR RS 
BR 30$ 
60$: 
;ADVANCE TABLE POINTER-EXIT IF DONE 
000004 ADD #4 ,R2 
000001 TSTB 1(R2) 
BMI 70$ 
sia) 10$ 
70$: BR 200$ 


100$: 
; TABLE OF FUNCTION CODES, CLOCK 


-BYTE 
«BYTE 
- WORD 


-BYTE 
-BYTE 
. WORD 


-BYTE 
-BYTE 
. WORD 


-BYTE 
-BYTE 
«WORD 


-BYTE 
-BYTE 
. WORD 


-BYTE 
-BYTE 
. WORD 


-BYTE 
-BYTE 
- WORD 
-BYTE 
-BYTE 
. WORD 
-BYTE 
-BYTE 
. WORD 


-BYTE 


af 
“B0000 
ILFO2 
2 

“B00 
SEEK 

2 

“B00 
RECAL 
2 

“B00 
DRVCLR 
“B01 
gape 
“B000 
OFFSET 
“B00 
RTC 

2 

“B00 
RIP 

4 
*B1110 
PAKACK 


; JUMP OVER TABLE 


COUNTS AND CONTINUE BITS FOR TEST 


NOP COMMAND 
2:4 CLOCKS 
; CONT INUE=0000 


ILLEGAL FUNCTION 2 

SEEK COMMAND 
;RECALIBRATE COMMAND 
;DRIVE CLEAR COMMAND 
RELEASE COMMAND 

OFFSET COMMAND 

;RETURN TO CENTER COMMAND 
;READ IN PRESET COMMAND 


PACK ACKNOWLEDGE 





CZR 


nn 
» 


ee OE ee ee a Ce ye ee ee a ee a a a ee ee ee ee ee ee ee ee Oe 
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CZR 

CZRMJC.P11 21-AUG-78 09:19 147 SET PULSE TEST C2R 
4 g 

*B1110 S 


ILF 24 7 ILLEGAL FUNCTION 24 
S00 
ILF 26 ILLEGAL FUNCTION 26 
“B00 
SEARCH SEARCH COMMAND 
“B000 
ILF32 ; ILLEGAL FUNCTION 32 
+000 
ILF 34 ILLEGAL FUNCTION 34 
S00 
030270 ° ILF36 ILLEGAL FUNCTION 36 
030271 “ 2 
030272 -WORD “B00 
- ;END OF TABLE 
200$: END OF TEST 


© ie He He Hee ie He IIIT KKK KEKE KEKE EERE KEKKK 


SRTEST 50 SET/RESET IVC TEST 


FDO IIRC IOI ICICI ICICI IOI TOT IORI OTA ISA ISI SISIASSISSSSSSSSSSIAN. 
000004 TST50: 
012737 000050 001226 MO #50, $TESTN 7:SET TEST NUMBER IN APT MAIL BOX 


000240 

012737 001120 #20. ,SICNT 720 ITERATIONS 

112737 #1, SERMAX ;ONE ERROR ALLOWED 
012737 #T50,$LPADR ;LOAD LOOP ON TEST ADDRESS 
012737 030342 001124 #T50,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


001100 ASTACK , SP ;LOAD THE STACK POINTER 
$BASE ,RO [RO = UNIBUS ADDRESS OF UUT 
TSTQUE ,R1 :R1 = POINTER TO DEVICE 
RO, $BDADR ;SETUP REG ADDRESS 
001136 ARMER2 , $BDADR 
R2 ;R2=FUNCTION CODE 


10$: 

SINITIALIZE VERIFY THAT IVC STATUS IS ZERO. 
030372 000040 000010 MOV ACLR,RMCS2(RO) ;CLEAR THE MASSBUS 
030400 000010 MOVB (R1),RMCS2(RO) ;SELECT UNIT 


ee ee eae ea a a ae a a oe oe ae oe oe ae a wn ow mw we mw we ee ee eee ee ee 





cera Cian te ot Mali a os 
030404 012760 000001 000024 ADMD ,RIIMR1(RO) ;LOAD RMMR1 
012760 041901 000024 ADMD ! MUR! DBEN,RMMR1(RO) ;LOAD RMMR1 
012760 000000 000014 #0,RMER1 (RO) 3LOAD RMER1 
012760 000000 000042 #0 ,RMER2 (RO) LOAD RMER2 


016037 000042 001142 RMER2 (RO) , SBDDAT STORE RMER2 AT $BDDAT 
167777 001142 #*CIVC,$B8DDAT 
20$ ;BRANCH IF IVC IS ZERO 


001140 SGDDAT 
157 CANT CLEAR IVC 
40$ SKIP REST OF TEST 


208: 
;LOAD THE FUNCTION CODE WITH e one STEP THE COMMAND SEQUENCER OFF 
T ADDRESS Aa AND VERIFY IVC STAT 

010203 R2,R3 ;SETUP FUNCTION CODE 

052703 000001 #G60,R3 


010360 000000 R3,RMCS1 (RO) ;LOAD RMCS1 
012760 141001 000024 #DMD ! MUR ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
012760 041001 000024 #DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMRI 
016037 000042 001142 RMER2 (RO) , SBDDAT STORE RMER2 AT $SBDDAT 
167777 001142 #*CIVC,$BDDAT ;SET ACTUAL STATUS 
066042 001140 FNCDTB(R2) ,$GDDAT ;SETUP EXPECTED STATUS FROM 
167777 001140 #*°CIVC,$GDDAT ;FUNCTION CODE TABLE 
001140 001142 $GDDAT , SBDDAT 
CH IF IVC IS OK 


30 ;BRAN 
001174 MOV —- SAVE FUNCTION CODE FOR MSG 
160 :IVC IS INCORRECT 


30$: 
; ADVANCE oa” ae AND REPEAT TEST IF NOT DONE 


R 
000076 CMP #iLF76,R2 
BLO 40S ;BRANCH IF DONE TEST 
BR 10$ 


000002 


030572 40$: END OF TEST 


55 ue KEKE KKK EKER EE KEE KK EERE EERE EK 


S*TEST 51 SET LSC TEST 


JSC IOIIISIICIDIOITIOIIOIOI IOI IOI I TOIT TOOT TOTO TOTO TORT TTT TOTS TTS AT 
030572 000004 TST51: 
030574 012737 MO #51,$TESTN 77SET TEST NUMBER IN APT MAIL BOX 


#20. ,S$ICNT 320 ITERATIONS 

#1, $ERMAX ;ONE ERROR ALLOWED 

#T51,$LPADR ;LOAD LOOP ON TEST ADDRESS 
012737 030634 A#T51,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


LAA BADD D AAD DADDARADADBNANAADNANDNMNANNAMNNOMMOMWOWMWOKNWNWOWOWWWWWWWWO 
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T51: 
ASTACK, SP sLOAD THE STACK POINTER 
$BASE ,RO *RO UNIBUS ADDRESS OF UUT 
TSTQUE ,R1 ZR1 POINTER TO DEVICE 
RO, $8DADR 
001136 #RMER2 , SBDADR 


VERIFY THAT LOSS OF Age CLOCK, "LSC", IS RESET 
012760 000010 MOV ACLR.RMCS2(RO) :CLEAR THE MASSBUS 

111160 (R1).RMCS2(RO) SELECT UNIT 

012760 000024 #DMD,RMMR1(RO) ;LOAD RMMR1 

012760 000024 ADMD ! DBEN,, RMMR1 (RO) ;LOAD RMMR1 

012760 000014 #0 ,RMER1 (RO) ;LOAD RMER1 

012760 000042 #0,,RMER2 (RO) ;LOAD RMER2 

016037 001142 RMER2 (RO) , SBDDAT ;STORE RMER2 AT $BDDAT 
042 *7 173777 001142 #*CLSC,$BDDAT 

001403 10$ :BRANCH IF LSC IS ZERO 

005037 001140 $GDDAT 


030746 104161 ERROR 161 ;CANT CLEAR LSC 
030750 “+ ha DEBUG CLOCK ENABLED, SET GO AND WAIT FOR ONE SHOT TO SET 


030750 012760 000000 #GO.RMCSi1(RO) ;LOAD RMCS1 


012737 001524 #1,WATCH ;SET WATCHDOG TIMER VALUE 
004777 PC,@CLOCK ;START THE CLOCK 
005737 001524 20$: TCH 
001375 20$ ;WAIT FOR ayn ZERO 
004777 150526 JSR PC,@STOP ;STOP THE CLO 
ZONE SHOT SHOULD BE SET-DISABLE DIAGNOSTIC LOOCK AND LSC SHOULD SET. 


012760 000001 000024 ADMD,RMMR1(RO) ;LOAD RMMR1 


016037 000042 001142 RMER2 (RO) , SBDDAT STORE RMER2 AT $BDDAT 
173777 001142 #*CLSC,$BDDAT 
;BRANCH IF LSC SET 


30$ 
004000 001140 MOV ALSC,.$GDDAT 
104162 162 CANT SET LSC 


30$: SEND OF TEST 


>? PPAR SSSELSSELASLSSESSE SS SS RSE SS ESE SESS SSE RSA SRR R RRR A RSS R SESS S SSS: 


S*TEST 52 DECODE TEST 


FDIS IOIDISIIIOIIIOISISIOISIOIIIOIDIIIITIIIISIOITIOIDITIOIOI IOI TOI TOI TOIT TOIT TOI TOT TOT TOTO TOT TOT 
000004 TST52: SCOPE 
012737 000052 001226 MO #52, $TESIN 3zSET TEST NUMBER IN APT MAIL BOX 


000024 001120 #20. ,SICNT 320 ITERATIONS 
000001 001131 #1, SERMAX [ONE ERROR ALLOWED 
012737 031100 001122 #T52,$LPADR ;LOAD LOOP ON TEST ADDRESS 


WDDOONODOWOONONODOWOWOOHOUOWOODODOOODODODOODOOOOODOOODOOOODONDOVOO 
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012737 031100 001124 sal #T52,$LPERR :LOAD LOOP ON ERROR ADDRESS 
001100 : #STACK, SP LOAD THE STACK POINTER 
$BASE ,RO ‘RO UNIBUS ADDRESS OF UUT 
TSTQUE ,R1 'R1 = POINTER TO DEVICE 
001416 a RMER10 ‘NO ERROR FIRST TEST 
031500 : PC,100$ : INITIALIZE 


sEXECUTE A PACK ACKNOWLEDGE AND CHECK VOLUME VALID 
013760 001416 000014 RMER10,RMER1 (RO) ;LOAD RMER1 
031132 012760 000023 000000 #PACACK!GO,RMCS1(RO) ;LOAD RMCS1 
031140 012703 000003 #3,R3 
031144 
031144 012760 141001 000024 ADMD ! MUR ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
ys Ube 3 012760 041001 000024 pt ceenaaie aha ;LOAD RMMR1 
031162 10$ ISSUE NEXT CLOCK IF COUNT NOT 0 
000012 001142 RMDS(RO) ,$BDDAT ;STORE RMDS AT S$BDDAT 
177677 001142 #*CVV,$BDDAT 
20$ ;BRANCH IF VV IS ZERO 


001416 
;BRANCH IF VV SHOULD BE SET 


001140 ;SETUP ERROR MESSAGE 

001136 

000012 001136 #RMDS , SBDADR 
163 :DECODE SET WITH COMP ERROR ACTIVE 
80$ ; SKIP 


20$: 
031232 031500 PC,100$ Z INITIALIZE AND SET DIAGNOSTIC MODE 


EXECUTE A READ IN PRESET AND CHECK VOLUME VALID 
031236 013760 001416 000014 RMER10,RMER1 (RO) ;LOAD RMER1 
031244 012760 000021 000000 #RIP!GO, pieces ;LOAD RMCS1 
031252 012703 (00003 #3,R3 R3=CLOCK COUNT 
031256 3 
031256 012760 141001 000024 #DMD ! MUR ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
031264 012760 041001 000024 ADMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
031272 005303 R3 
031274 001370 30$ ISSUE NEXT CLOCK IF COUNT NOT ZERO 
031276 016037 000012 001142 MO RMDS(RO), ++ ated STORE RMDS AT SBDDAT 
177677 001142 #ACVV, SBDDAT 
40$ ;BRANCH IF VOLUME VALID NOT SET 


001416 RMER10 
70$ BRANCH IF VOLUME VALID SHOULD BE SET 
031322 5037 001140 $GDDAT SETUP ERROR MESSAGE 


COOOOO OOO OO OOOMOO OM OM OM OOO OM YO OL DYOYO LOY OOOO LOO LOO OL LV :0 200000 
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031326 001136 MOV RO, $BDADR 
000012 001136 ADD #RMDS , SBDADR 
ERROR 163 sDECODE SET WITH COMP ERROR ACTIVE 
a BR 80$ > SKIP 
031500 " ‘JSR PC,100$ s INITIALIZE AND SET DIAGNOSTIC MODE 
:EXECUTE A WRITE CHECK DATA AND CHECK OCCUPIED 


031350 013760 001416 000014 RMER10,RMER1 (RO) ;LOAD RMER1 


oO 
™ 
gq 


031356 012760 000051 000000 #wWwCD!GO, atin te ;LOAD RMCS1 
3 012703 000002 #2,R3 R3=CLOCK COUNT 


031364 
031370 
031370 012760 141001 000024 #DMD ! MUR ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
031376 012760 041001 000024 thant tage ;LOAD RMMR1 
50$ ISSUE NEXT CLOCK IF COUNT NOT ZERO 
000024 001142 RMMR1 (RO) , SBDDAT STORE RMMR1 AT $BDDAT 
077777 001142 #*COCC ,$BDDAT 
60$ ;BRANCH IF OCCUPIED IS RESET 


001416 
70 ;BRANCH IF OCCUPIED SHOULD BE SET 
001140 ? ; SETUP ERROR MESSAGE 
001136 
000024 001136 
;DECODE SET WITH COMP ERROR ACTIVE 


031456 60$: 
;VOLUME VALID AND OCCUPIED DID NOT SET-SEE IF COMP ERROR WAS ACTIVE 
031456 005737 001416 TST RMER10 
031462 001005 BNE 80$ ;BRANCH IF COMP ERROR WAS SET 
;COULD NOT SET VV OR OCCUPIED- SUSPECT DECODE FLOP NOT SETTING 
031464 104165 ERROR 165 :DECODE DOES NOT SET 


031466 70$: 
REPEAT TEST WITH COMPOSITE ERROR ACTIVE-VERIFY THAT DECODE FLOP 
“DOES NOT SET, AS age BY VOLUME VALID AND OCCUPIED. 
031466 012737 040000 001416 MOV AUNS , RMER10 USE UNSAFE TO SET COMP ERROR 
031474 000611 BR 5$ 
031476 000513 80$: BR 2008 END OF TEST 
031500 100$: 
; SUBROUTINE USED DURING TEST 
USING DIAGNOSTIC MODE, RESET VOLUME VALID AND COMPOSITE ERROR. 
[VERIFY THAT VV, ERR, AND OCC ARE ZERO. 


C00040 000010 MOV MCLR,RMCS2(RO) ;CLEAR THE MASSBUS 
000010 MOVB (R1).RMCS2(RO) SELECT UNIT 


DOODOOOOODOOOOODOOOMD OOO OY YOM POPPY YOY YLY POLY LOY OL OYLY LOLOL LCL LL LLL LO 
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is 4 031512 012760 000001 000024 MOV #DMD,.RMMR1(RO) ;LOAD RMMR1 

Soke 031520 012760 041001 000024 MOV #DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 

bait 031526 012760 000000 000014 MOV #0 ,RMER1 (RO) ;LOAD RMER1 

9035 031534 012760 000000 000042 MOV #0 ,RMER2 (RO) LOAD RMER2 

9036 031542 005037 001140 CLR $GDDAT ;SETUP FOR ERROR MSG 

9037 031546 010037 001136 MOV RO, $BDADR 

it 031552 062737 000012 001136 ADD #RMDS , SBDADR 

9040 031560 016037 000012 001142 MOV RMDS(RO) ,$BDDAT ;STORE RMDS AT $8DDAT 

9041 031566 042737 137777 001142 BIC #*CERR,SBDDAT 

9042 031574 001402 BEQ 110$ ;BRANCH IF COMP ERROR ZERO i 
9043 031576 104143 ERROR 143 ;CANT CLEAR COMP ERROR i 
9044 031600 000447 BR 140$ SKIP TEST i 
rs 4 031602 110$: i 
9047 031602 016037 000012 001142 MOV RMDS(RO),$BDDAT ;STORE RMDS AT $8DDAT i 
9048 031610 042737 177677 0601142 BIC #*CVV,$BDDAT f 
9049 031616 001402 BEQ 120$ BRANCH IF VOLUME VALID ZERO ‘ 
9050 031620 104135 ERROR 135 >CANT RESET VOLUME VALID p 
9051 031622 000436 BR 140% SKIP TEST i 
a 031624 1208: 4 
9054 031624 016037 000024 001142 MOV RMMR1 (RO) , SBDDAT ;STORE RMMR1 AT $BDDAT 
9055 031632 042737 077777 001142 BIC #*COCC,$BDDAT 
9056 031640 001407 BEQ 130$ BRANCH IF OCCUPIED ZERO \ 
9057 031642 010037 001136 MOV RO, $BDADR ;SETUP ERROR MESSAGE \ 
9058 031646 062737 000024 001136 ADD ARMMR 1, SBDADR ; } 
9059 031654 104166 ERROR 166 CANT CLEAR OCCUPIED j 
9060 031656 000420 BR 140$ :SKIP TEST 
9061 031660 1308: 9 
9062 TO VERIFY THAT THE DECODE FLOP IS RESET, LOAD AN ILLEGAL FUNCTION 9 
9063 IN RMCS1 AND VERIFY THAT ILF DOES NOT SET. 4 
9065 031660 012760 000024 000000 MOV MILF 24,RMCS1(RO) LOAD RMCS1 3 
9067 031666 016037 000014 001142 MOV RMER1(RO) , SBDDAT STORE RMER1 AT $B8DDAT 9 
9068 031674 042737 177776 001142 BIC #*CILF ,$BDDAT 9 
9069 031702 001410 BEQ 150$ ;BRANCH IF ILF IS ZERO 9 
9070 031704 010037 001136 MOV RO, $BDADR SETUP ERROR MESSAGE 9 
9071 031710 062737 000014 001136 ADD #RMER1 , SBDADR 9 
9072 031716 104167 ERROR 167 ;DECODE FLOP APPEARS ON 9 
pao 031720 012716 031726 140$: MOV #200$, (SP) ;DONT GO BACK TO TEST : 
oe 031724 000207 150$: RTS PC ;RETURN TO TEST OR EXIT TEST 4 
9077 031726 2008: 2 
9078 9 
9079 DIO OI IIIIIIISIIIOIDIDIIDIDIIDIDIIIOIDIUIDIDIIDIDIDITIOIDI ITI TOT TOTO TTT TTT 9 
ain S*TEST 53 SET/RESET VOLUME VALID TEST : 
9082 DOI IUIIIIIOISIIIIOIIOIIIIDINITIDIIIIDIUIDIOIIOIDIOIIIUIDIOIIIOIUIOIUIUIOIOIUIDIDIUIOIDINIOIOI It 9 
9083 031726 000004 TST53: SCOPE 9 
9084 031730 012737 000053 001226 MOV #53, $TESTN 7:SET TEST NUMBER IN APT MAIL BOX 9 
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000024 001120 #20.,$ICNT :20 ITERATIONS 

000001 #1, $ERMAX TONE ERROR ALLOWED 
031770 #753,$LPADR :LOAD LOOP ON TEST ADDRESS 
031770 001124 #153.$LPERR :LOAD LOOP ON ERROR ADDRESS 


AST* «,SP + LOAD THE STACK POINTER 
$SBASE ,RO ;RO = UNIBUS ADDRESS OF UUT 
TSTOUE, R1 [R1 = POINTER TO DEVICE 
RO, $BDADR :SETUP REGISTER ADDRESS 
000012 001136 #RMDS , SBDADR 
012702 032230 #100$,R2 ;R2=TABLE POINTER 
032022 10$: 
INITIALIZE USE DIAGNOSTIC MODE TO RESET VOLUME VALID 
032022 012760 000040 000010 MOV ACLR,RMCS2(RO) ;CLEAR THE MASSBUS 
032030 111160 000010 (R1),RMCS2(RO) ;SELECT UNIT 
032034 012760 000001 000024 #DMD,.RMMR1(RO) ;LOAD RMMR1 
032042 012760 041001 000024 #DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
032050 012760 000000 000014 #0,RMER1 (RO) ;LOAD RMER1 
032056 012760 000000 000042 #0 ,RMER2 (RO) ;LOAD RMER2 
016037 000012 001142 RMDS(RO) ,SBDDAT ;STORE RMDS AT SBDDAT 


177677 001142 #*CVV,$BDDAT 
$ ;BRANCH IF VOLUME VALID ZERO 


20 
001140 CL SGDDAT 
135 CANT RESET VV 


20$: 

ZEXECUTE THE FUNCTION CODE IN THE TABLE 

032116 111203 MOVB (R2) ,R3 :GET FUNCTION CODE 
032112 042703 177701 #*CILF76,R3 

032116 052703 000001 #60,R3 


032110 


032122 010360 000000 R3,RMCS1(RO) LOAD RMCS1 
116204 000001 1(R2) ,R4 GET CLOCK COUNT 
042704 177400 #*(377,R4 

032136 


032136 012760 141001 000024 #DMD ! DBEN! MUR ! DBCK ,RMMR1 (RO) ;LOAD RMMR1 


deed 012760 041001 000024 -” aici (RO) ;LOAD RMMR1 
032154 30$ ISSUE COCKS TIL R4& ZERO 


032156 000072 001142 RMDS(RO),$BDDAT ;STORE RMDS AT SBDDAT 
177677 001142 #*CVV,$BDDAT 
40$ BRANCH IF VOLUME VALID SET 
001174 R3,$TMPO SAVE FUNCTION CODE FOR MSG 
000100 001140 #VV .SGDDAT 
170 CANT SET VOLUME VALID 


50$ 
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;ADVANCE THE TABLE POINTER, EXIT IF DONE 
ADD #2 ,R2 


032212 062702 000002 
009001 
ZEIT IF COUNT IS NEGATIVE 


BR 
032226 50$: BR ; JUMP OVER TABLE 


032230 100$: 

; TABLE OF FUNCTION CODES AND sen COUNTS 
032230 -BYTE RIP READ IN PRESET COMMAND 
032231 ME > Fs 


032232 -BYTE PAKACK ;PACK ACKNOWLEDGE COMMAND 
032233 IE 3 


032234 000 -BYTE END OF TABLE 
032235 -BYTE 


032236 200$: :END OF TEST 


POR PERROSSSSSESLSE SELES ESE RSS E SESS RRR SERRE RA SERRE RRR RRR RRA R ASRS SD OI 


T*TEST 54 ILLEGAL FUNCTION TEST 


LIER EAE ER ER EEEERARERRERAAKAEARERRREERAARARAERREE ED 


032236 000004 TST54: 
032240 012737 001226 #54, $TESTN 3:SET TEST NUMBER IN APT MAIL BOX 


032246 
001120 #20. ,SI1CNT 320 ITERATIONS 
#1, SERMAX ONE ERROR ALLOWED 
#154,$LPADR ;LOAD LOOP ON TEST ADDRESS 
001124 #T54,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


MSTACK , SP ;LOAD THE STACK POINTER 

$BASE ,RO :RO = UNIBUS ADDRESS OF UUT 
TSTQUE ,R1 7R1 = POINTER TO DEVICE 

R2 INITIALIZE FUNCTION CODE VALUE 


032316 
VALID USING SUBROUTINE 
032316 JSR PC,SETVV :GO SET VOLUME V. 
20$ [BRANCH TO 20$ IF NO ERROR 
RETURN HERE IF ERROR 
SKIP TEST IF ERROR 
20$: MOV #2,R4 >R4=CLOCK COUNT 
;EXECUTE THE TEST FUNCTION CODE AND VERIFY ILF 


012760 041001 000024 #DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
010203 MOV R2,R3 ;SETUP FUNCTION CODE IN R3 
052703 000001 #60,R3 


032350 010360 000000 R3,RMCS1(RO) ;LOAD RMCS1 
032354 


032354 012760 141001 000024 #DMD ! MUR ! DBEN! DBCK ,RMMR1 (RO) LOAD RMMR1 
032362 012760 041001 000024 ADMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 


QOQLOLLLLOLL OL LL OL OLOOL LOLOL OL OL LOLOL LOLLSLSSSSESSRODD ODDS 
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032370 


an 
NN 
32 


005304 RS 

001370 30$ 

016037 0000 RMER1 (RO) , SBDDAT STORE RMER1 AT $BDDAT 
#°CILF.SBDDAT ;SETUP ACTUAL ILF STATUS 
FNCDTB(R2) ,SGDDAT ;GET EXPECTED ILF STATUS 
#°CILF ,SGDDAT 
SGDDAT , SBDDAT 
40$ ;BRANCH IF ILF IS OK 

SETUP FOR ERROR MSG 


sae zILF IS NOT CORRECT 
:ADVANCE TO THE NEXT FUNCTION CODE AND REPEAT TEST 
ADD #2,R2 


CMP MILF76,R2 
BLO 50$ 
0324 BR 10$ 
032470 50$: sEND OF TEST 


SL AREER EEREEREKEREEEEEREEREREKEKEREEKEKEKEKEKEREEEERRERE 


SeTEST 55 OCCUPIED TEST 


DBAS ISIIIIIIIOI IO ISISISIISIISIIIIIOIDISIIOIIOIIOIIIOIOIIOIIIOI IOI IOIIDITOI IOI IOI 
032470 000004 TST55: 
032472 012737 000055 MOV #55, $TESTN 72SET TEST NUMBER IN APT MAIL BOX 


000024 #20. ,$ICNT :20 ITERATIONS 

000001 1, $ERMAX TONE ERROR ALLOWED 
032532 #755,$LPADR :LOAD LOOP ON TEST ADDRESS 
032532 #T55.$LPERR :LOAD LOOP ON ERROR ADDRESS 


001100 STACK , SP ;LOAD THE STACK POINTER 
001276 $BASE ,RO :RO = UNIBUS ADDRESS OF UUT 
001456 TSTQUE ,R1 = POINTER TO DEVICE 

R2 zs INITIALIZE FUNCTION CODE 


032550 


O$: 

7GET THE DEVICE READY 

SET es VALID USING SUBROUTINE 

032550 JSR PC, SETVV 3:60 set vous VALID 

BR 20$ BRANCH O 20$ IF NO ERROR 
— 50s ;RETURN HERE IF ERROR 


DEBUG CLOCK AND LOAD THE FUNCTION CODE 


032562 ADMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
032570 R2,R3 SASSEMBLE FUNCTION CODE AND 
032572 052703 #60,R3 :GO BIT IN R3 


032576 010360 R3,RMCS1(RO) ;LOAD RMCS1 
032602 012704 000002 MOV #2,R4 R4=CLOCK COUNT 
;STEP THE DEBUG CLOCK UNTIL SET PULSE IS ACTIVE 


BESLSSESLELLLLLESLSLSSLSSSELLBLELLELSELLLSLLSSLSSSESLLLS 
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032606 30: 

032606 012760 141001 000024 MOV —«#DMD !MUR!DBEN!DBCK.RMMR1(RO) LOAD RMMR1 
032614 012760 041001 000024 MOV —- #DMD !MUR'DBEN,RMMR1(RO) ;LOAD RMMR1 
032622 005304 DEC RG 


032624 001370 BNE 30$ 3 ISSUE NEXT CLOCK TIL R4 ZERO 
VERIFY OCCUPIED STATUS 


E: 


032626 016037 001142 RMMR1 (RO) , SBDDAT STORE RMMR1 AT $BDDAT 
032634 001142 #*COCC,$BDDAT 

032642 $GDDAT 

032646 066042 MAOE ,FNCDTB(R2) 
032654 35$ 


GENERATE OCC FROM AOE 


RYRLKLRVVLLVLLVLVVLVVLVVVBBVVsyssssessSYssesSSSSSBSB3SE3s 
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CZRMJC.P11 


032656 
032664 


032732 


032732 
032734 


032742 


033010 
033016 


033022 
033030 
033036 
033044 


033052 
033060 
033066 


033074 


21-AUG-78 


012737 


000004 
012737 


013701 


012760 
111160 


012760 
012760 
012760 
012760 


012760 


09:19 


100000 
001140 


001174 


001136 
000024 


000056 
000024 


000001 
032774 
032774 


000000 


177777 
177777 
177777 


000021 
000003 
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001140 
001142 


001136 


001226 


001124 


000010 


000024 
000024 
000014 
000042 


000006 
000034 
000032 


000000 


OCCUPIED TEST 


#0CC,$GDDAT 
35$: $GDDAT , SBDDAT 

40$ ;BRANCH IF OCC IS OK 
SAVE FUNCTION CODE 
;SETUP REGISTER ADDRESS 


sOCCUPIED IS INCORRECT 


40$: 
; ADVANCE oak ee EXIT IF DONE 


CMP #ILF76,R2 
BLO 50$ EXIT IF DONE 
BR 10$ 


50$: sEND OF TEST 


DIBBA IISISIEIIOIIOIIUIIEIIOISIIIIUIIIOIIOISIOIIOUIOIOIOIDIOIIOIDIOIIOIUIDIIOIUIOOIIDIO ICR 
i*TEST 56 READ IN PRESET TEST 
DRIER ISI IIIIOISIIIIIIIIIDOIISIDIUIIOIIOIIOIOIOIIDIDOIDIOIUIOIIIUOIUIUIIUIDIUINIDE 
TST56: 

#56, $TESIN 72SET TEST NUMBER IN APT MAIL BOX 


#20. ,SICNT 720 gh me rey 

#1, SERMAX ;ONE ERROR ALLOWED 
#T56,$LPADR ;LOAD LOOP ON TEST ADDRESS 
#T56,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


te gy LOAD THE STACK POINTER 


e 


$BA 

MOV TSTQUE ,R1 

:CLEAR AND ENABLE DEBUG CLOCK - LEAVE VOLUME VALID RESET 

MOV AMCLR,RMCS2(RO) ;CLEAR THE MASSBUS 
(R1),RMCS2(RO) ;SELECT UNIT 
#DMD,.RMMR1(RO) ;LOAD RMMR1 
#DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
#0 ,RMER1 (RO) LOAD RMER1 


MOV #0 ,RMER2 (RO) LOAD RMER2 
;LOAD ALL ONES IN RMDA, RMDC AND’ RMOF 


MOV #-1 ,RMDA(RO) ;LOAD RMDA 
MOV #-1 ,RMDC (RO) ;LOAD RMDC 


MOV #-1 ,RMOF (RO) ;LOAD RMOF 
;LOAD READ IN PRESET COMMAND AND STEP THE CLOCK TILL SET PULSE 


MOV #RIP!GO,RMCS1(RO) LOAD RMCS1 
MOV #3,R2 :R2=CLOCK COUNT 


T56: 


10$: 


SEQ 0195 





—ICOMOONDZ SH KACHTOMOOOZSZ STACK ITOMIOWZS SE KOCK TO MOOMS BF ACHIOWMMOOW 


PVP PIAA DIT BS BS BD RED HHL HP WNWWWAWWNWWWWWIININI NINN NNNNND 9 BBB BRB 
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033106 
033114 


033122 
033124 


033126 


033146 
033150 


033162 
033164 


033164 
033166 


033174 


033254 
033260 
033266 
033272 
033300 
033306 
033314 


21-AUG-78 


012760 
012760 
005302 


104174 


000004 
012737 


012760 
111160 


012760 
012760 
012760 
012760 


09:1 


141001 
041901 


000006 


000034 
176000 


000032 
161577 


033226 
001100 


000032 
001140 
000040 
000010 
000001 
041001 
000000 
000000 


MACY11 30A(1052) 
T56 


000024 
000024 


001226 


001120 


001124 


001136 


000010 


000024 
000024 
000014 
000042 


BEQ 
READ IN PRESET 
ERROR 


20$: 
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READ IN PRESET TEST 


#DMD ! MUR ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
OU peicties woe cntoer (RO) ;LOAD RMMR1 


10$ ; ISSUE 3 CLOCKS 
RMDC OR RMOF IS ZERO 


“7 tesa R2 STORE RMDA AT R2 
50s ;BRANCH IF RMDA IS ZERO 


RMDC (RO) ,R2 ;STORE RMDC AT R2 
AXNUDC ,R2 ;CLEAR UNUSED BITS 
20$ ;BRANCH IF RMDC IS ZERO 


RMOF (RO) ,R2 STORE RMOF AT R2 

#XNUOF ,R2 ;CLEAR UNUSED BITS 

20$ [BRANCH _IF RMOF IS ZERO 
COMMAND DIDNT CLEAR ANY oF THE 3 REGISTERS 

174 READ IN PRESET FAILED 


zEND OF TEST 


RE RREEEEREEEKKEEEREEKEREREEKREEEEKEEEKEEEEE EE 


SeTEST 57 


RIP/RMOF TEST 


RK ERE EKER ERK EEE EEK EERE RERRKEKKEEKEEREK KKK 


TST57: 


#57, $TESTN 32SET TEST NUMBER IN APT MAIL BOX 


#20. ,SICNT 720 ITERATIONS 

#1, SERMAX [ONE ERROR ALLOWED 
#157,$LPADR ;LOAD LOOP ON TEST ADDRESS 
#T57,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


ASTACK SP ;LOAD THE STACK POINTER 

$BASE ,RO [RO = UNIBUS ADDRESS OF UUT 

TSTQUE ,R1 3R1 = POINTER TO DEVICE 
;SETUP REGISTER ADDRESS AND 

$GDDAT EXPECTED RMOF 

SET BITS IN RMOF 

#CLR,RMCS2(RO) ;CLEAR THE MASSBUS 

(R1),RMCS2(RO) ;SELECT UNIT 

#DMD,RMMR1(RO) ;LOAD RMMR1 

#DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 

#0 ,RMER1 (RO) LOAD RMER1 


#0 ,RMER2 (RO) ;LOAD RMER2 


SEQ 0196 





16 
ra ws Ri 25 PAGE 197 SEQ 0197 


RIP/RMOF 


CZRMJCO RMO3/2 DSKLS PRT 1 
CZRMJC.P11 21-AUG-78 


033322 012760 


MACY11 30A(1052) 
09:19 T57 
177777 


000032 &-1 ,RMOF (RO) ;LOAD RMOF 


MOV 
EXECUTE A READ IN PRESET IN DIAGNOSTIC MODE TILL SET PULSE 


MOV #RIP!GO,RMCS1(RO) ;LOAD RMCS1 
MOV #3,R2 3R2=CLOCK COUNT 


000021 
000003 


Oeeeee 012760 000000 


3336 012702 
033342 
033342 


033350 


10$: 
MOV 


MOV 
DEC 


BNE 10$ 
THAT RMOF IS ZERO 


#DMD ! MUR ! DBEN! DBCK ,RMMR1 (RO) 
“Seaton: tna (RO) 


012760 
012760 


141001 
041001 


000024 
000024 


;LOAD RMMR1 
LOAD RMMR1 
ISSUE 3 CLOCKS 


033520 
033526 
033534 


000004 
012737 


012760 
111160 


012760 
012760 
012760 
012760 
012760 
012760 


000032 
161577 


000060 


000024 
000001 
033444 
033444 
001100 
001276 
001456 
001140 


sung 
000001 
041001 
000000 
000000 
177777 
177777 


001142 
001142 


001226 


001120 


001124 


000010 


000024 
000024 
000014 
000014 
000006 
000034 


VERIFY 


208: 


MOV 
BIC 
BEQ 


ERROR 


RMOF (RO), ae :STORE RMOF AT $BDDAT 


#XNUOF , SBDDAT 
208 ;BRANCH IF RMOF IS ZERO 
ZCANT CLEAR RMOF WITH RIP 


175 
;END OF TEST 


MASBARBASRASLAALALA LAS ARR ASASSASESASARASASAARSASA ARR ARRAS RA RRS SDDS 


TSTEST 60 


RMDA/RMDC/RIP TEST 


[RARER RRR EREAEEEREREREREERREE REE RRR EREREREERERERE RRR REE 


TST60: 
#60,$TESTN 


#20. ,SICNT 
#1, SERMAX 

#160, $LPADR 
#T60,$LPERR 


ASTACK, SP 
$BASE ,RO 
TSTQUE ,R1 
$GDDAT 


7zSET TEST NUMBER IN APT MAIL BOX 


720 ITERATIONS 

;ONE ERROR ALLOWED 
;LOAD LOOP ON TEST ADDRESS 
;LOAD LOOP ON ERROR ADDRESS 


THE STACK POINTER 
UNIBUS ADDRESS OF UUT 
POINTER TO DEVICE 


— DEBUG rest THEN PRESET RMDA AND RMDC 


#CLRRMCS2 (RO) 
(R1) “RMCSO(RO) 


ADMD , RMMR1 (RO) 


#0 ,RMER1 (RO) 
#0,RMER1 (RO) 
#-1 ,RMDA(RO) 
#-1 ,RMDC (RO) 


MOV 
sEXECUTE READ IN PRESET TILL SET “PULSE 


;CLEAR THE MASSBUS 
>SELECT UNIT 


;LOAD RMMR1 
#DMD ! MUR ! DBEN, RMMR1 (RO) 
LOAD RMER1 
;LOAD RMER1 
;LOAD RMDA 


;LOAD RMMR1 


RMDC 
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CZRMJC.P11 


9435 
36 


033542 
033550 
033554 
033554 
033562 


033570 
033572 


033574 


033746 


033754 


21-AUG-78 09:19 


012760 
012702 
012760 
012760 


005302 
001370 


016037 
005737 
00 


000004 
012737 


012737 


004737 
000402 
104000 


000021 
000003 


141001 
041001 


000006 
001142 


001136 
000006 


000034 
176000 


001136 
000034 


000061 
000024 


000001 
033720 
033720 


060556 
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000000 


000024 
000024 


001142 


001136 


001142 


001142 


001136 


001226 


001120 


601134 


001136 
001140 


A/RMDC/RIP TEST 


MOV #RIP!GO,RMCS1(RO?) ;LOAD RMCS1 
108 MOV #3,R2 


MOV #DMD ! MUR ! DBEN! DBCK ,RMMR1 (RO) LOAD RMMR1 
MOV reer bags tee ;LOAD RMMR1 


BNE 10$ ISSUE 3 CLOCKS 
; VERIFY RMDA IS ZERO 


RMDA(RO),$BDDAT ;STORE RMDA AT $BDDAT 
$BDDAT 


BEQ 20$ ;BRANCH IF RMDA RESET 
MOV RO, $BDADR 

ADD ARMDA , SBDADR 

ERROR 176 ;RMDA NOT RESET BY RIP 


20$: 
; VERIFY RMDC IS ZERO 


MOV RMDC (RO), es STORE RMDC AT S$BDDAT 

BIC #XNUDC , SBDDAT 

BEQ 30$ ;BRANCH IF RMDC RESET 
MOV RO, SBDADR 

ADD ARMDC , SBDADR 


ERROR 177 ;RMDC NOT RESET BY RIP 
30$: sEND OF TEST 
; PR Rekakaha ahahaha hahakeha hehehehe lahahahaheiaialalelahehaheielehaleheielehalaieleieieieieloicheleisiciaieieieieinieieieielelel 
:*TEST 61 OFFSET COMMAND TEST 
FD III II III III IIIT IIR ERE RE REE RE REE REE ER 
TST61: SCOPE 

MOV #61,$TESTN 7: SET TEST NUMBER IN APT MAIL BOX 

NOP 

MOV #20.,$I1CNT :20 ITERATIONS 


MOVB #1, SERMAX ;ONE ERROR ALLOWED 
MOV #T61,$LPADR ;LOAD LOOP ON TEST ADDRESS 
MOV #T61,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


T61: 
MOV #STACK, SP ;LOAD THE STACK POINTER 
MOV $BASE ,RO +RO = UNIBUS ADDRESS OF UUT 
MOV TSTQUE ,R1 RI = POINTER TO DEVICE 


MOV RO, $BDADR 
ADD #RMDS , SBDADR 
MOV #0M, $GDDAT 


7 SET ager | VALID xT SUBROUT INE 


PC,SETVV :GO SET VOLUME VALID 
BR 10$ :BRANCH TO 10$ IF NO ERROR 
te 1 RETURN HERE IF ERROR 


10$: 


SEQ 0198 
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033766 012760 000000 000034 MOV #0 ,RMDC (RO) ;LOAD RMDC 
;ENABLE DEBUG CLOCK AND EXECUTE OFFSET COMMAND 


033774 012760 041901 000024 MOV #DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
012760 000015 000000 MOV #OFFSET!GO,RMCS1(RO) ;LOAD RMCS1 
012702 000002 MOV #2,R2 sR2=CLOCK COUNT 


012760 141001 000024 MOV ADMD ! MUR ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1I 


012760 041001 000024 a “teeter ptvererteasmbetesich ge ;LOAD RMMR1 


BNE 20$ 
sVERIFY THAT OFFSET MODE IS SET 


; ISSUE 2 CLOCKS 


000012 001142 RMDS(RO),$BDDAT ;STORE RMDS AT $BDDAT 
177776 001142 #*COM, SBDDAT 
0$ ;BRANCH IF OM IS SET 


4 
ERROR 200 :CANT SET ON BY COMMAND 
40$: sEND OF TEST 


SLR EE EERE REAR E EERE RERE REAR RRERR ARERR ES 


s*TEST 62 RETURN TO CENTER TEST 


SLUR ERREREERAERRRERER ERA RE AERAERERERERER ARERR ERERER ERE ES 


TST62: 
012737 001226 #62,$TESIN 7zSET TEST NUMBER IN APT MAIL BOX 


001120 #20. ,$1CNT 320 ITERATIONS 

001131 #1, SERMAX ;ONE ERROR ALLOWED 

001122 #T62,$LPADR ;LOAD LOOP ON TEST ADDRESS 
034116 001124 #T62,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


001100 #STACK , SP zLOAD THE STACK POINTER 
001276 $BASE ,RO [RO = UNIBUS ADDRESS OF UUT 
001456 TSTQUE ,R1 3R1 = POINTER TO DEVICE 
001136 RO, $BDADR 
000012 001136 DD #RMDS , SBDADR 
SET OFFSET DIRECTION AND OFFSET MODE 
SET VOLUME VALID USING SUBROUTINE 
060556 JSR PC, SETVV :GO SET VOLUME VALID 
BR 10$ ;BRANCH TO 10$ IF NO ERROR 
ERROR RETURN HERE IF ERROR 
108 BR 60$ 


000200 000032 MOV MOFD,RMOF(RO)  ;LOAD RMOF 
SET OFFSET MODE USING SUBROUTINE 
060706 JSR PC,SETOM 7GO SET OFFSET MODE 
20$ [BRANCH TO 20$ IF NO ERROR 
20$ ERROR [RETURN HERE IF ERROR 


ENABLE DEBUG CLOCK AND EXECUTE RETURN TOCENTER COMMAND 
SET VOLUME VALID USING SUBROUTINE 
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060556 JSR PC ,SETVV ; es S ALID 
BR 30$ ; 0 30$ IF NO ERROR 
ERROR ; HERE IF ERROR 
BR 60$ 
012760 041001 000024 ADMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
012760 000017 000000 #RTC!GO,RMCS1(RO) ;LOAD RMCS1 
012702 000002 #2,R2 


012760 141001 000024 #DMD ! MUR ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 


012760 041001 000024 eee ~ ppsetiaapneces stinsiciczese ;LOAD RMMR1 


BNE 40$ 
:VERIFY THAT OFFSET MODE IS RESET 


ISSUE 2 CLOCKS 


000012 RMDS(RO),$BDDAT ;STORE RMDS AT SBDDAT 


01142 
177776 001142 #*COM, $BDDAT 
50$ ;BRANCH IF OFFSET MODE RESET 
001140 $GDDAT 
50s 201 ;CANT RESET OFrSETMODE BY RTC 


:VERIFY THAT OFFSET DIRECTION IS RESET 


000032 001142 RMOF (RO) ,SBDDAT ;STORE RMOF AT $BDDAT 
177577 =001142 #*COFD,$BDDAT 
$ ;BRANCH IF OFD IS RESET 


60 
001140 SGDDAT 
001136 RO, $BDADR 
000032 001136 ARMOF , SBDADR 
104202 202 CANT RESET OFD BY RTC 
60$: SEND OF TEST 


eo PP SPSS SSSZALSSLESSSE SELES ASA A LESS ASRS ESAS ESSA RASA RRA RAR SSR RSLS S SS 


T*TEST 63 RMDC CLEAR OFFSET TEST 


FIGS CII IOISIOIOIOIOIOIOIOIOI ITO I TOIT OTT TOTTORI TOR TOTTI ST AIA SASSI SISA S ASA. 
000004 TST63: 
012737 000063 001226 #63, $TESTN 32SET TEST NUMBER IN APT MAIL BOX 


000024 001120 #20. ,SICNT 320 ITERATIONS 
#1 , SERMAX ;ONE ERROR ALLOWED 
#T63,$LPADR ;LOAD LOOP ON TEST ADDRESS 
012737 034372 001124 #T63,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


012706 001100 ASTACK , SP ;LOAD THE STACK POINTER 
$BASE RO 7RO = UNIBUS ADDRESS OF UUT 
TSTQUE ,R1 7R1 = POINTER TO DEVICE 
RO, $BDADR 
062737 000012 001136 ADD #RMDS , SBDADR 
SET VOLUME VALID USING SUBROUT INE 


004737 060556 JSR PC,SETVV :GO SET VOLUME VALID 
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034614 


012760 
016037 


000004 
012737 


104000 


012760 
012760 


060706 


000000 


000012 
177776 


001140 


000064 


000012 
060556 


060706 


010000 
002037 
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000034 


001142 
001142 


001226 


001120 


001136 


000032 
000006 ~ 


RMDC CLEAR OFFSET TEST 
BR 10$ ;BRANCH TO 10$ IF_NO ERROR 
ERROR ;RETURN HERE IF ERROR 
108: BR 40$ SKIP REST OF TEST 
sSe7 wide 3 MODE USING SUBROUTINE 
PC,SETOM :GO SET OFFSET MODE 
aR 20$ :BRANCH TO 20$ IF NO ERROR 
208 ERROR [RETURN HERE IF ERROR 
;WRITE THE DESIRED CYLINDER REGISTER AND VERIFY THAT OFFSET IS ZERO 
#0,RMDC (RO) ;LOAD RMDC 


RMDS(RO), ee STORE RMDS AT $BDDAT 
rte , $BDDA 


$ 
$GDDAT 
203 CANT RESET OFFSET BY RMDC 


40$: sEND OF TEST 


= ERRATA EREEEREAERRERRERA ERE 


TeTEST 64 EBL CLEAR OFFSET TEST 


DIDO IOIIDIUIIOIIIIOISIIIIIIIIIIIUIOIIIID OE nt it rrr nites 
TST64: 
#64 ,$TESTN 7:SET TEST NUMBER IN APT MAIL BOX 


#20. ,$ICNT 720 ITERATIONS 

#1, SERMAX ONE ERROR ALLOWED 
#T64,$LPADR ;LOAD LOOP ON TEST ADDRESS 
#T64,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


STACK , SP LOAD THE STACK POINTER 
$BASE ,R RO = UNIBUS ADDRESS OF UUT 
TSTQUE ,R1 ;R1 = POINTER TO DEVICE 
RO, $BDADR ;SETUP REGISTER FOR ERROR MSG 
ADD #RMDS , SBDADR 
SET VOLUME VALID USING SUBROUTINE 
JSR PC,SETVV :GO SET VOLUME VALID 
10$ ;BRANCH TO 10$ IF NO ERROR 
ERROR RETURN HERE IF ERROR 
30$ ;SKIP REST OF TEST IF ERROR 


10$: 
:SET OFFSET MODE USING SUBROUTINE 
JSR PC,SETOM ;GO OFFSET MODE 
BR 20$ :BR TO 20$ IF NO ERROR 
ERROR “ HERE IF ERROR 
SET 16 BIT FORMAT AND LOAD LAST SECTOR/TRACK ADDRESS 
MOV #FMT16,RMOF (RO) ;LOAD RMOF 


MOV #002037, RMDA(RO) OAD RMDA 
FORCE END OF BLOCK AND VERIFY THAT ore set MODE IS CLEARED 


SEQ 0201 
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9659 


034622 
034630 
034636 
034644 


035014 
035022 
035030 
035036 
035040 
035044 
035052 


035056 
035062 
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012760 
012760 
012760 
012760 
016037 


012760 
111160 


012760 
012760 
012760 
012760 


010203 


004777 
010360 


041001 
000901 
061001 
041001 


000012 
177776 


001140 


000065 
000024 
000001 
034740 
034740 
001100 


001140 
sais 
sang 
000001 
040001 
000000 
000000 


000001 
000200 
144450 


000000 


MACY11 — 
T64 


000024 
000000 
000024 
000024 


001142 
001142 


001226 
001120 


001124 


001136 


000010 


000024 
000024 
000014 
000042 


001524 


30$: 
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#DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
#GO,RMCS1(RO) ;LOAD RMCS1 

#DMD ! MUR ! DBEN! DEBL ,. RMMR1 (RO) ;LOAD RMMAR1 
#DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1I 

RMDS (RO), ot a STORE RMDS AT SBDDAT 


#*COM, SBDDAT 

30$ BRANCH IF OFFSET IS ZERO 

$GDDAT 

204 OFFSET NO CLEARED BY EBL 
END OF TEST 


LRA RAA RAE RARER E EE EAARA RARE RARER RARARARAARARERERAE REED 


s*TEST 65 


SLUR ERA EERE RE RARER RARE RAERERRARARAEAERRAARRRAR REARS 


TST65: 


T65: 


SCOPE 


RUN AND GO TEST 


#65 ,$TESTN 7zSET TEST NUMBER IN APT MAIL BOX 
#20. ,SICNT 3:20 ITERATIONS 
#1, SERMAX ONE ERROR ALLOWED 


#165,$LPADR ;LOAD LOOP ON TEST ADDRESS 
#T65,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


#STACK, SP ;LOAD THE STACK POINTER 
$BASE ,RO [RO = UNIBUS ADDRESS OF UUT 


TSTQUE ,R1 zR1 = POINTER TO DEVICE 

$GDDAT INITIALIZE EXPECTED RESULT 
R2 ;INTIALIZE FUNCTION CODE 
RO, $BDADR 

#RMMR1 , SBDADR 


10$: 
: CLEAR yo MASSBUS AND ENABLE DEBUG CLOCK 


MOVB 


ACLR,RMCS2(RO) ;CLEAR THE MASSBUS 
(R1).RMCS2(RO) :SELECT UNIT 


#DMD,RMMR1(RO) ;LOAD RMMR1 


#DMD ! DBEN, RMMR1 (RO) :LOAD RMMR1 
#0,RMER1(RO) — : LOAD RMER1 
MOV #O.RMER2(RO) LOAD RMER2 
:LOAD THE FUNCTION CODE AND VERIFY RUN AND GO FLOP 
R2 RB, :ASSEMBLE FUNCTION CODE AND GO 
#200, WATCH :SET WATCHDOG TIMER VALUE 
PC, acLOCk “START THE CLOCK 


15$: 


R3,RMCS1(RO) LOAD RMCS1 


SEQ 0202 
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035162 
035164 


035164 
035166 


035174 


035246 
035246 


035260 


035260 
035266 
035274 
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016037 


000004 
012737 


012702 


004737 
000402 
104000 
000453 


012760 
012760 
012760 


000024 
137777 
001140 
001524 


144410 
001174 


144374 
000002 
000076 
000050 
040000 


000066 
000024 


035226 
001100 
001276 


001456 
035410 


060556 


177777 
177777 
000000 
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RMMR1 (RO) , SBDDAT 
#*CRG,$BDDAT 
$GDDAT , $8DDAT 
20$ 


20$: 
TOP 


203 


;STORE RMMR1 AT S$BDDAT 


;BRANCH IF RUN AND GO FLOP OK 
;TAKE ANOTHER SAMPLE IF CLOCK NOT ZERO 


;STOP THE CLOCK 
;SAVE FUNCTION CODE FOR MSG 
[RUN AND GO INCORRECT 

SKIP REST OF 


;STOP THE CLOCK 


JSR PC,a@S 
;ADVNACE TO NEXT FUNCTION CODE - EXIT IF DONE 
ADD #2,R2 


#ILF76,R2 
40$ 
ae 


30 
001140 #RG,SGDDAT 
10$ 


30$: 
40$: 


EXIT IF DONE 

;CHANGE EXPECTED RESULTI IF 
:DATA COMMAND 

;REPEAT TEST 


END OF TEST 


LL ARAAAERAARARAEEEEAARAEE REAR ERA RAREREREEKKARARERRERRRERRRRERR 


:*TEST 66 SET IAE TEST 
CF AAA AARARAARERARRAERARAAEAERAARE 
TST66: 


001226 #66,$TESTN 


001120 
001131 
001122 
001124 


#20. ,$ICNT 
#1 , SERMAX 
#T66,$LPADR 
#T66,$LPERR 


ASTACK,SP 
$BASE ,RO 
TSTQUE ,R1 
#100$,R2 


10$: 
7SET VOLUME VALID ey SUBROUT INE 
JSR PC,SETVV 


BR 

ERROR 

BR 50$ 

208: 

z;LOAD INVALID TRACK, SECTOR AND 
MOV #-1,RMDA(RO) 
MOV #-1,RMDC (RO) 


#0 ,RMOF (RO) 


000006 
000034 
000032 


RRR EKE 


72SET TEST NUMBER IN APT MAIL BOX 


320 ITERATIONS 
;ONE ERROR ALLOWED 


;LOAD LOOP ON TEST ADDRESS 
;LOAD LOOP ON ERROR ADDRESS 


+ LOAD THE STACK POINTER 
RO = UNIBUS ADDRESS OF UUT 
“RI = POINTER TO DEVICE 
;R2=TABLE POINTER 


:GO SET VOLUME VALID 
BRANCH TO 20$ IF NO ERROR 
RETURN HERE IF ERROR 
SKIP REST OF TEST 
CYLINDER ADDRESS AND SET FORMAT TO 18 
;LOAD RMDA 
;LOAD RMDC 


;LOAD 


RMOF 
7 ENABLE DEBUG CLOCK AND LOAD FUNCTION CODE IN RMCSI WITH GO ON 


SEQ 0203 





CZRMJCO RMO3/2_ DSKLS PRT 1 
21-AUG-78 09:19 


CZRMJC.P11 


035316 
035322 


035354 


035356 


035410 
035410 
035411 


035412 
035413 


035414 
035415 


035416 
035417 


035420 
035421 


035422 
035423 


035424 
035425 


012760 
111203 
042703 
052703 


010360 


116204 
042704 


012760 
012760 


041001 


177701 
000001 


0 


00000: 
000001 
177400 


141001 
041001 


000014 
175777 


000002 
000001 


MACY11 30A(1052) 
T66 


000024 


000024 
000024 
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SET IAE TEST 


#DMD ! MUR ! DBEN 
(R2) ,R3 
#*CILF76,R3 
#G0,R3 

ote age Mas 


1(R2),R 
#*C377,RG 


30$: 
;CLOCK THE COMMAND SEQUENCER 


BNE 50 
:IAE DID NOT SET = TRV ANOTHER FUNCTION CODE 
ADD #2,R2 


40$: 
; CANNOT SET IAE 
ERROR 


BR 


50$: 


#DMD ! MUR ! DBEN 
#DMD ! MUR ! DBEN 
RS 


30$ 
SET 


RMER1 (RO) ,R4 
a ras 


1(R2) 
40$ 
10$ 


WITH ANY COMB 
206 


200$ 


AGE 204 


~RMMR1(RO) ;LOAD RMMR1 


;LOAD RMCS1 
GET CLOCK COUNT 


!DBCK ,RMMR1 (RO) ;LOAD RMMR1 
»RMMR1(RO) ;LOAD RMMR1 


STORE RMER1 AT R4 


;BRANCH IF IAE SET 


;BRANCH IF ALL CODES TRIED 


INATION OF ADDRESS AND FUNCTION CODE 


; JUMP OVER TABLE 


100$: 
: TABLE OF FUNCTION CODES AND CLOCK COUNTS FOR TEST 


-BYTE 
-BYTE 


-BYTE 
-BYTE 


-BYTE 
-BYTE 


-BYTE 
-BYTE 


-BYTE 
-BYTE 


-BYTE 
-BYTE 


-BYTE 
-BYTE 


SEARCH 
2 

SEEK 

2 


WH 


SEARCH COMMAND 


SEEK COMMAND 


WRITE HEADER COMMAND 


WRITE CHECK HEADER COMMAND 


READ HEADER COMMAND 


;WRITE DATA COMMAND 


WRITE CHECK DATA COMMAND 


SEQ 0204 
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035426 070 -BYTE RD READ DATA COMMAND 
035427 002 -BYTE 2 


035430 000 -BYTE END OF TABLE 
035431 377 -BYTE 


035432 200$: END OF TEST 


PEPPER RRRR SESE SSSSE SESE R RRA RASA SS RRA SASSER RASA RRA SARA RAR AAR DDD DD! 


Se TEST 67 SEARCH, SEEK, READ WRITE TEST 


FLARE ARERR AERAERARERERERRERKKRARRRRRAREERRRAAARARRRAAARARRRARER 


035432 000004 TST67: 
035434 012737 000067 001226 #67, $TESTN 7zSET TEST NUMBER IN APT MAIL BOX 


035442 
000024 001120 #20. ,$ICNT 320 ITERATIONS 
000001 601131 #1, SERMAX ZONE ERROR ALLOWED 
035474 001122 #167,$LPADR ;LOAD LOOP ON TEST ADDRESS 
035474 001124 #167,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


ASTACK ,SP ;LOAD THE STACK POINTER 

$BASE .R [RO = UNIBUS ADDRESS OF UUT 
001456 TSTQUE ,R1 ;R1 = POINTER TO DEVICE 

R2 INITIALIZE FUNCTION CODE 


035512 
VALID x SUBROUT INE 
035512 060556 JSR PC,SETVV :GO SET VOLUME VALID 
208 :BRANCH TO 20$ IF NO ERROR 
ZRETURN HERE IF ERROR 


035524 


20$: 
:LOAD INVALID TRACK, SECTOR AND CYLINDER ADDRESS AND SET FORMAT 
:TO 18 BIT MODE 


035524 012760 177777 000006 MOV #-1 ,RMDA(RO) ;LOAD RMDA 
035532 012760 177777 000034 MOV #-1,RMDC (RO) ;LOAD RMDC 


035540 012760 000000 000032 MOV #0 ,RMOF (RO) ;LOAD RMOF 
DEBUG CLOCK RAND LOAD FUNCTION CODE IN RMCS1 WITH GO ON 


035546 012760 041001 000024 MOV #DMD!MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
035554 010203 MOV R2,R3 ASSEMBLE CODE AND GO 
035556 052703 000001 BIS #G0,R3 
035562 010360 000000 MOV R3,RMCS1(RO) ;LOAD RMCS1 
;CLOCK THE COMMAND’ SEQUENCER TO SET PULSE 
035566 000002 MOV #2,R4 
035572 30$: 
035572 012760 141001 000024 #DMD ! MUR ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
toast 012760 041001 000024 RTS PR ;LOAD RMMR1 


03 
035610 30% 
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:VERIFY IAE ACCORDING TO FUNCTION CODE TABLE 


035612 016037 001142 j Orie tabon root se: STORE RMER1 AT SBDDAT 
ENCDTB (RE) . “SGDDAT ASSEMBLE EXPECTED IAE 
#*CIAE ,$GD 


$GDDAT, SEDDAT 

40$ BRANCH IF IAE OK 

RO, $BDADR ;SET UP ERROR MSG 
001136 A#RMER1 , SBDADR 

R2,$TMPO 

207 71AE_IS_ INCORRECT 

50$ SKIP REST OF TEST 

035674 


40$: 
ADVANCE TO NEXT FUNCTIONCODE - EXIT IF DONE 
035674 000002 ADD #2,Re 
000076 CMP ILF76,R2 
BLO 50$ 


BR 10$ 
035710 50$: END OF TEST 


SRA REE ERE ERR ERE EERE REEEE ERE REE 


**TEST 70 INVALID SECTOR/TRACK TEST 


FLERE EERE REE EREEE EERE EERE RRERRRRERE EER 


035710 000004 TST70: 
035712 012737 000070 001226 MOV #70,$TESTN 33SET TEST NUMBER IN APT MAIL BOX 


035720 
000024 001120 #20. ,SICNT 720 ITERATIONS 
000001 #1, SERMAX ;ONE ERROR ALLOWED 
035752 #T70,$LPADR ;LOAD LOOP ON TEST ADDRESS 
035752 001124 #T70,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


ASTACK ,SP ;LOAD THE STACK POINTER 

$BASE ,RO RO = UNIBUS ADDRESS OF UUT 
TSTQUE ,R? :R1 = POINTER TO DEVICE 

#100$,R2 INITIALIZE TABLE POINTER 


035772 10$: 
SET VOLUME VALID a7 SUBROUT INE 
035772 JSR PC,SETVV :GO SET VOLUME VALID 
BR 20$ BRANCH TO 20$ IF NO ERROR 
ERROR [RETURN HERE IF ERROR 
BR 50$ SKIP REST OF TEST 


EAR fe kaanal CYLINDER, LOAD SECTOR/TRACK ADDRESS FROM TABLE, AND SET 


20$: 
rad 
3:18 B 
012760 000000 000034 MOV #0 ,RMDC (RO) ;LOAD RMDC 
012760 000000 000032 MOV #0 ,RMOF (RO) ;LOAD RMOF 


011260 000006 MOV (R2) ,RMDA(RO) AD _RMDA 
ZEXECUTE A SEARCH COMMAND TO WHERE ‘Ser PULSE’* IS ACTIVE 
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036024 012760 041001 000024 #DMD ! MUR! DBEN,RMMR1(RO) ;LOAD RMMR1 
036032 012760 000031 000000 ASEARCH!GO,RMCS1 (RO) ;LOAD RMCS1 
tor ey 012703 000002 #2,R3 


036044 012760 141001 000024 ADMD ! MUR ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 


036052 012760 041001 000024 #DMD!MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
036060 R3 


BNE 30$ ISSUE 2 CLOCKS 
VERIFY IS SET 


000014 001142 RMER1 (RO) , SBDDAT STORE RMER1 AT $BDDAT 
175777 001142 #*CIAE , SBDDAT 
40$ BRANCH IF IAE IS ON 


BN 
001140 MIAE ,SGDDAT ;SETUP ERROR MESSAGE 
001136 
:IAE NOT SET BY RMDA ADDRESS 


000002 
TST 
BEQ EXIT IF END OF TABLE 
BR ;REPEAT TEST 
50$: BR ; JUMP OVER TABLE 


100$: 

; TABLE OF SECTOR AND TRACK ADDRESSES FOR TEST 
BYTE ;SECTOR ADDRESS = 0 
.BYTE “B00000101 ; TRACK ADDRESS = 5 


-BYTE 0 SECTOR = 0 
-BYTE “B00000110 ; TRACK 6 


-BYTE 0O SECTOR = 0 
-BYTE %*B00001000 TRACK = 8 


-BYTE 0O SECTOR = 0 
-BYTE %B800010000 TRACK = 16 


-BYTE Q SECTOR = 
-BYTE %B00100000 :TRACK = 3 


-BYTE 0 SECTOR = 0 
-BYTE %*B01000000 TRACK = 64 


BYTE 0 SECTOR = 0 
-BYTE 810000000 7 TRACK = 128 


-BYTE %*800011110 SECTOR = 31 
036165 000 -BYTE 0 TRACK = 0 





CZRMJCO RMO3/2 DSKLS PRT 1 MACY11 30A(1052) 21-AUG-78 09:22 PAGE 208 SEQ 0208 
CZRMJC.P11 21-AUG-78 09:19 T70 INVALID SECTOR/TRACK TEST 
9995 
9996 036166 040 -BYTE %*B00100000 SECTOR = 32 
a4 036167 000 BYTE 0 : TRACK = 0 
9999 036170 100 .BYTE %B01000000 SECTOR = 64 
10000 036171 000 BYTE 0 TRACK = 0 
10002 036172 200 .BYTE %B10000000 SECTOR = 128 
10005 036173 000 BYTE 0 TRACK = 0 
10005 036174 000 .BYTE 0 :END OF TABLE 
10008 036175 000 .BYTE 0 
10008 036176 2008: zEND OF TEST 
10010 SD III IIT I IIIT ITI ITT TTT ITI II IIH KI RII IT TR IIR TN 
oD *TEST 71 INVALID CYLINDER TEST 
10013 KKK KKKKKKEKEEEKEKEKEEEEKKEKEK 
10014 036176 000004 78171: SCOPE 
10015 036200 012737 000071 001226 MOV #71,$TESTN SET TEST NUMBER IN APT MAIL BOX 
10017 036206 000240 NOP 
10018 036210 012737 000024 001120 MOV #20. ,SICNT 3:20 ITERATIONS 
10019 036216 112737 000001 001131 MOVB #1, $ERMAX ONE ERROR ALLOWED 
10020 036224 012737 036240 001122 MOV #171,$LPADR ;LOAD LOOP ON TEST ADDRESS 
10021 036232 012737 036240 001124 MOV #171,$LPERR ;:LOAD LOOP ON ERROR ADDRESS 
10022 036240 171: 
10023 036240 012706 001100 MOV ASTACK, SP LOAD THE STACK POINTER 
10024 036244 013700 001276 MOV $BASE ,RO ‘RO = UNIBUS ADDRESS OF UUT 
10025 036250 013701 001456 MOV TSTQUE,R1 :R1 = POINTER TO DEVICE 
10026 036254 012702 036426 MOV #100$,R2 : INITIALIZE TABLE POINTER 
10027 036260 10$: 
10028 SET VOLUME VALID USING | SUBROUT INE 
10029 036260 004737 060556 JSR PC,SETVV :GO SET VOLUME VALID 
10030 036264 000402 BR 20$ “BRANCH TO 20$ IF NO ERROR 
10031 036266 104000 ERROR :RETURN HERE IF ERROR 
10032 036270 000455 BR 50$ SKIP IF ERROR 
10033 036272 208: 
ioe CLEAR RMDA, LOAD RMDC FROM TABLE 
10036 036272 012760 000000 000006 MOV #0,RMDA(RO) LOAD RMDA 
10038 036300 011260 000034 MOV (R2),RMDC(RO)  ;LOAD RMDC 
re sENABLE DEBUG CLOCK AND EXECUTE SEARCH COMMAND : 
H's of 036304 012760 041001 000024 MOV #DMD!MUR'DBEN,RMM: .RO) :LOAD RMMR1 ! 
10043 036312 012760 000031 000000 MOV ASEARCH!GO,RMCS1( 0) zLOAD RMCS1 1 
10044 036320 012703 000002 MOV #2,R3 1 
of 036324 30$: . 
aot 036324 012760 141001 000024 MOV #DMD ! MUR ' DBEN! DBCK ,RMMR1 (RO) LOAD RMMR1 : 
10049 036332 012760 041001 000024 MOV #DMD 'MUR'!DBEN,RMMR1(RO) ;LOAD RMMR1 1 
10050 036340 005303 DEC R3 1 
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CZF 
CZRMJC.P11 21=AUG-78 09:19 171 INVALID CYLINDER TEST CZF 
10051 034342 001370 BNE 30$ ISSUE 2 CLOCKS 1¢ 
et 7 sVERIFY IAE IS SET ‘ 
10054 036344 016037 000014 001142 MOV RMER1 (RO), SBDDAT STORE RMER1 AT $8DDAT 1¢ 
10055 036352 042737 175777 001142 BIC #*CIAE,SBDDAT 1¢ 
10056 036360 001014 BNE 40$ BRANCH IF IAE IS SET 1 
10057 036362 012737 002000 001140 MOV MIAE , SGDDAT SETUP ERROR MESSAGE 1 
10058 036370 010037 001136 MOV RO, $BDADR 1 
10059 036374 062737 000014 001136 ADD #RMER1 , SBDADR 1 
10060 036402 011237 001174 MOV (R2) ,.$TMPO 1¢ 
10061 036406 104211 ERROR 211 ; IAE NOT SET BY RMDC 1¢ 
1 036410 000405 BR 50$ 4 1 
10063 036412 40$: 1 
10064 ZADVANCE TABBLE POINTER - EXIT IF DONE 1 
10065 036412 062702 000002 ADD #2,R2 1¢ 
10066 036416 005712 TST (R2) 1 
10067 036420 001401 BEQ 50$ 1 
10068 036422 000716 BR 10$ 
10069 036424 000405 50$: BR 2008 ; JUMP OVER TABLE 
10071 036426 100$: 

10072 

Ha TABLE OF CYLINER ADDRESSES USED DURING TEST 

Lots 036426 001467 ts WORD 81100110111 CYLINDER 823 

10077 r7*' 30 001470 .WORD %*81100111000 CYLINDER 824 

100: — .w52 001500 .WORD %B1101000000 CYLINDER 832 

10081 036434 001600 .WORD %*B1110000000 CYLINDER 896 

10083 036436 000000 .WORD 0 END OF TABLE 

10085 036440 200$: END OF TEST 

10087 FI II III III II III IK IK IKKE EERE ERE EKER EK 
10088 tSTEST 72 SET AOE TEST 

10090 FL II III IIT IIR II III III IK TK IER IK 
10091 936440 000004 TST72: SCOPE 

10096 036442 012737 000072 001226 MOV #72, $TESIN 7:SET TEST NUMBER IN APT MAIL 80X 
10094 036450 000240 NOP 

10095 036452 012737 000024 001120 MOV #20.,S1CNT :20 ITERATIONS 

10096 036460 112737 000001 001131 MOVB #1,$ERMAX — ERROR ALLOWED 

10097 036466 012737 036502 001122 MOV #172, $LPADR LOAD LOOP ON TEST ADDRESS 

10098 toh 012737 036502 001124 = MOV #172,$LPERR ;LOAD LOOP ON ERROR ADDRESS 

10100 036502 012706 001100 i MOV A#STACK, SP :LOAD THE STACK POINTER 

10101 036506 013700 001276 MOV SBASE -RO :RO = UNIBUS ADDRESS OF UUT 
10102 036512 013701 001456 MOV TSTQUE ,R1 *R1 = POINTER TO DEVICE 

10103 SET VOLUME VALID USING SUBROUT INE 

10104 036516 004737 060556 JSR PC,SETVV :GO SET VOLUME VALID 

10105 036522 000402 BR 10$ ‘BRANCH TO 10$ IF NO ERROR 

10106 036524 104000 ERROR RETURN HERE IF ERROR 
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036526 000465 BR 30$ ;SKIP TEST IF ERROR 


036530 10$: 
;ENABLE DEBUG CLOCK AND LOAD LAST SECTOR ADDRESS, MEMORY ADDRESS AND 
WORD COUNT, THEN LOAD WRITE DATA COMMAND WITH GO SET 


036530 012760 041001 000024 #DMD !MUR! DBEN,RMMR1(RO) ;LOAD RMMR1 
036536 012760 000000 000032 #0,,RMOF (RO) ;LOAD RMOF 

036544 012760 002035 000006 #002035 ,RMDA(RO) ;LOAD RMDA 
036552 012760 001466 000034 #001466,RMDC (RO) LOAD RMDC 
036560 012760 106724 000004 #BUF FER ,RMBA(RO) LOAD RMBA 
036566 012760 177244 000002 #*C<2*256>+1,RMWC(RO)  ;LOAD RMWC 


ao 
a) 
wD 


a So So SY os SS 
lelejlelelelelelejelefe) 
3 St So SS 
tA eS 2 SS SS a SS SY 
SOWONAUSWN—O 


036574 012760 000061 000000 MOV #WD!GO,RMCS1(RO) ;LOAD RMCS1 
036602 012702 000014 MOV #14,R2 zR2 = CLOCK COUNT 
CLOCK COUNT 2-05 3-04 74-60... 
peg ok THE COMMAND SEQUENCER TO GENERATE SET PULSE 


012760 141001 000024 MOV #DMD ! MUR ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 


012760 041001 000024 MOV #DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 

005302 DEC R2 

001370 BNE 20$ ISSUE 2 CLOCKS 
FORCE EBL TO GET TO OVERFLOW ADDRESS 


012760 061001 MOV #DMD ! MUR ! DBEN! DEBL ,RMMR1 (RO) ;LOAD RMMR1 


012760 041001 MOV ADMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
VERIFY THAT ADDRESS OVERFLOW ERROR IS SET 


016037 000014 RMER1 (RO) , SBDDAT STORE RMER1 AT $B8DDAT 
176777 #*CAOE , SBDDAT 
30$ BRANCH IF AOE IS SET 
RO, $BDADR ;SETUP ERROR MESSAGE 
#RMER1 , SBDADR 
001000 MOV MAQE , $GDDAT 
212 CANT SET AOE 


30$: END OF TEST 


em me me mee ee eh ek ek ek ek ed ed ed ed od od od od ot 2 2 oo OS 
EAA AAA AAA LOA OLA OOOO OVONOOON OV OOOO OYVUOON OO AAV OOO OYVOMOOOOOQ 


FDI II II I TI II IT IT IIIT III IR TR RR RIK 


S*TEST 73 SET RMR TEST 


FDIC I IOI IOI OIRO TOTTI III OTR ITT ITAA IAAI AAISASISASSISSSSASSASSASAS. 
TST73: SCOPE 
000073 001226 MO #73, $TESTN 72SET TEST NUMBER IN APT MAIL BOX 


000024 001120 MO #20. ,$ICNT 320 ITERATIONS 

000001 #1, $ERMAX TONE ERROR ALLOWED 
036744 #173,$LPADR ;LOAD LOOP ON TEST ADDRESS 
036744 001124 #173.$LPERR :LOAD LOOP ON ERROR ADDRESS 
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173: 
ASTACK,SP ;LOAD THE STACK POINTER 
$BASE ,RO :RO = UNIBUS ADDRESS OF UUT 
TSTQUE, R1 zR1 POINTER TO DEVICE 
RO, $BDADR ;SETUP REGISTER ADDRESS FOR MSG 
0000 001136 ARMER1, SBDADR 
012702 037146 108: MO #100$, R2 s INITIALIZE TABLE POINTER 
:CLFEAR THE DEVICE AND ENABLE DEBUG CLOCK 
012760 000040 MOV ACLR,RMCS2(RO) ;CLEAR THE MASSBUS 
111160 000010 MOVB (R1),RMCS2(RO) SELECT UNIT 
037010 012760 000001 000024 ADMD, RMMR1(RO) ;LOAD RMMR1 
037016 012760 041001 000024 ADMD !MUR'DBEN,RMMR1(RO) ;LOAD RMMR1 
037024 012760 000000 000014 #0,RMER1 (RO) ;LOAD RMER1 


037032 012760 000000 000042 MOV #0,RMER2 (RO) LOAD RMER2 
SET GO THEN WRITE THE REGISTER SPECIFIED BY THE TABLE 


012760 000001 000000 #GO,RMCS1(RO) ;LOAD RMCS1 
Ruane (R2) ,R3 GENERATE REGISTER ADDRESS 


06000 RO,R 
037052 012713 041001 MOV ADMD !MUR ! DBEN, (R3) ;WRITE THE REGISTER 
VERIFY ACCORDING TO TABLE 


037056 016037 000014 001142 RMER1 (RO) , SBDDAT STORE RMER1 AT SBDDAT 
037064 177773 +=001142 #*CRMR , SBDDAT 
000002 001140 2(R2) , S$GDDAT GET EXPECTED RESULT FROM TABLE 
001140 001142 SGDDAT , $BDDAT 
30$ ;BRANCH IF RMR IS OK 
001174 (R2) ,STMPO SAVE TEST REGISTER 


000004 000002 ARMR , 2(R2) 
20$ ;BRANCH IF ERROR SHOULD BE ONE 
RMR SET WHEN WRITING REGISTER 


BR 
20$: RMR DID NOT SET 
037132 30$: 
;ADVANCE TABLE POINTER, EXIT IF DONE 
037132 000004 ADD #4 ,R2 
EXIT IF ENTRY NEGATIVE 
, BR 10$ 
037144 40$: JUMP OVER TABLE 
037146 100$: 
; TABLE OF REGISTER ADDRESSES AND RMR VALUES 


037146 «WORD #RMAS sATTENTION SUMMARY REG 
037150 - WORD RMR = 0 


037152 - WORD MAINTENANCE REG 
037154 . WORD ;RMR = 0 


0 
0 
Q 
0 
0 
Q 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
C 
0 
C 
C 
C 
0 
C 
C 
C 
C 
¢ 
C 
C 
C 
¢ 
C 
C 
¢ 
C 
¢ 
¢ 
¢ 
( 
¢ 
( 
C 
( 
¢ 
¢ 
( 
( 
( 
( 


1 
1 
1 
: 
1 
1 
1 
1 
1 
: 
4 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
1 
1 
1 
1 
1 
1 
1 
j 
j 
1 
; 
j 
1 
1 
1 
1 
1 
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037156 
037160 


037162 
037164 


037166 


037166 
037170 
037176 


037240 


037244 
037252 


037256 
037264 
037272 

37300 


037332 


037332 


037366 
037374 


000006 
000004 


177777 
000000 


000004 
012737 


012737 
012706 
013700 
015701 
012760 
111160 
016037 
016037 


032737 


000004 
012737 


012737 


000074 


000024 
000001 
037230 
03,7230 


000075 


037374 


MACY11 30A(1052) 
173 SE 


001226 


001124 


000010 


001174 
001142 
001174 
001142 


001134 


001226 


001120 


001124 


. WORD 
. WORD 


. WORD 
. WORD 


200$: 


es 
21-AUG-78 09:22 PAGE 212 
T RMR TEST 


ARMDA DISK ADDRESS REG 
RMR RMR = 1 


. 
° 


#~1 END OF TABLE 


END OF TEST 


FD IR IR II TITTIES TOTO ROTI IOI IO III IOI III IIIA III AS ISIS ASS SS SSSSSSNA 


s*TEST 74 


PGM STATUS CHECK 


I II I RR KEKE KEE EKER EEKKKKKEKEK EK 


TST74: 


T74: 


MOV 
CLEAR AND READ 
MOV 
MOVB 
MOV 


#74,$TESTN 3:SET TEST NUMBER IN APT MAIL BOX 


#20. ,SI1CNT 320 ITERATIONS 

#1, SERMAX ;ONE ERROR ALLOWED 
#T74,$LPADR ;LOAD LOOP ON TEST ADDRESS 
#T74,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


ASTACK, SP ;LOAD THE STACK POINTER 
$BASE ,RO [RO = UNIBUS ADDRESS OF UUT 
TSTQUE ,R1 :R1 = POINTER TO DEVICE 
DRIVE TYPE AND DRIVE STATUS 

ACLR,RMCS2(RO) ;CLEAR THE MASSBUS 
(R1),RMCS2(RO) ;SELECT UNIT 


RMDT(RO),$TMPO ;STORE RMDT AT $TMPO 
RMDS(RO) ,$BDDAT ;STORE RMDS AT $S8DDAT 


MOV 
:OMIT a ad ~ 1S ON - ELSE VERIFY THAT PGM IS OFF 


10$: 


DRQ,$TMPO 
#*CPGM, $BDDAT 
10$ 


$GDDAT 

RO, $BDADR 

#RMDS , SGDADR : 

215 :DRQ IS OFF BUT PGM IS ON 
END OF TEST 


;BRANCH IF DRQ IS ON 
BRANCH IF PGM IS OFF 


CDI III III III IOI IIIT ITT I IIIT III II IAIN 


s*TEST 75 


DPR STATUS CHECK 


DD I III ITI IR TTT TR TIT RII TTT TT TR RIE EIR RR ERE KK 


TST75: 


#75,$TESIN 72SET TEST NUMBER IN APT MAIL BOX 


#20. SICNT :20 ITERATIONS 

#1,$ERMA ‘ONE ERROR ALLOWED 

#175, SUPADR :LOAD LOOP ON TEST ADDRESS 
#175,$LPERR :LOAD LOOP ON ERROR ADDRESS 


SEQ 0212 


10 
10 
10 
10 
10 
10 
10 
1C 
1C 
1C 
1C 
10 
1C 
1C 
1C 
10 
1C 
1€ 
1¢ 
1€ 
1C 
1C 
1¢ 
1€ 
1¢ 
1¢ 
1¢ 
1¢ 
1¢ 
1¢ 
1¢ 
1¢ 
1¢ 
1¢ 
1¢ 
1¢ 
1¢ 
1¢ 
1¢ 
1¢ 
1¢ 
1 
1 
1¢ 
1 
1¢ 
1 
1 
1 
1( 
1( 
1( 
1 
1 
1 
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037374 012706 001100 ASTACK,SP ;LOAD THE STACK POINTER 
013700 001276 $BASE ,RO :RO = UNIBUS ADDRESS OF UUT 
013701 001456 MOV TSTQUE ,R1 ;R1 = POINTER TO DEVICE 
;CLEAR AND VERIFY THAT DVA IS SET 
037410 012760 000040 000010 MOV AMCLR,RMCS2(RO) ;CLEAR THE MASSBUS 
037416 111160 000010 (R1), “RMCS3(RO) ;SELECT UNIT 


037422 016037 000000 001142 RMCS1(RO) , SBDDAT STORE RMCS1 AT $BDDAT 
2737 =173777 =001142 #*CDVA, $BDDAT 
10$ ;BRANCH IF DVA IS ON 


001140 #DVA,$GDDAT 
RO, $BDADR 
216 sDVA NOT SET 
10$: 
:VERIFY THAT DPR IS SET 


037454 000012 001142 RMDS(RO), et ped ;STORE RMDS AT $BDDAT 
177377 001142 — , SBDDA 


20 
000400 001140 #DPR,$GDDAT 
001136 
000012 001136 
037512 17 DPR NOT SET 


037514 20$: END OF TEST 






004000 
001136 
037454 


FD FI III ITI I III IIT TK IKK II ITI III IKI RIT IR EK 


S*TEST 76 PORT REQUEST TEST, PART 1 


DD II I III IIIT TOT TOTO TOTO TOTTI IOI III IO I IIIA IASI AI III IIIS I III IA. 


037514 000004 TST76: 
037516 012737 000076 001226 MO #76, $TESTN 3:SET TEST NUMBER IN APT MAIL BOX 


037524 , 
000024 001120 #20. ,SICNT 320 ITERATIONS 
000001 #1, SERMAX ;ONE ERROR ALLOWED 
037556 #176,$LPADR ;LOAD LOOP ON TEST ADDRESS 
037556 001124 176 #T76,$LPERR ;LOAD LOOP ON ERROR ADDRESS 
001100 ASTACK, SP ;LOAD THE STACK POINTER 
001276 $BASE ,RO :RO = UNIBUS ADDRESS OF UUT 
001456 MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
;SET VOLUME VALID USING SUBROUTINE 
060556 JSR PC ,SETVV :GO SET VOLUME VALID 
BR 108 BRANCH TO 10$ IF NO ERROR 
—— 20$ ;RETURN HERE IF ERROR 


10$: 
;EXECUTE A RELEASE TO RESET REQUEST FLOP 


012760 000013 000000 ARLEASE !GO,RMCS1 (RO) ;LOAD RMCS1 
;READ RMMR? AND SKIP TEST IF REQUEST FLOPS ARENT RESET 


037612 016002 000040 MOV RMMR2 (RO) ,R2 STORE RMMR2 AT R2 
037616 042702 037777 BIC #*C<RQA!RQB>,R2 
037622 001024 BNE 208 


ke ek kk ek ee ee ee eek ek ee ded ad dd ot I HOOOOOOOOO 


-— 3 ee 3 9 2 3 FF FPP OP IV VO OO 
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;READ RMCS1 TO SET REQUEST FLOP 


037624 016002 000000 MOV RMCS1(RO) ,R2 sSTORE RMCS1 AT R2 
VERIFY THAT REQUEST FLOP IS SET IF PGM IS SET 


037630 016005 000012 RMDS (RO) ,R5 STORE RMDS AT R5 
032705 001000 #PGM,R5 TSEE IF PGM IS SET 
001415 208 [DONT TEST REQUEST IF PGM IS ZERO 


016037 000040 001142 RMMR2 (RO) , SBDDAT STORE RMMR2 AT $BDDAT 
2737 037777 001142 #*C<RQA!RQB>, $BDDAT 
208 ;BRANCH IF REQUEST IS SET 


001136 aa $BDADR 
000040 001136 DD RMMR2 , SBDADR 
530 ;CANT SET REQUEST BY RMCS1 
037674 20$: 


: 5 Hee He Ie I HT TI II KKK KKK KE KEE KE KEKE EKEEKEEKKEEKKKEK 


s*TEST 77 PORT REQUEST TEST, PART 2 


FDI IOI IR TI TAIT AAI ISIIISISIISISISSSSSISSS SSS. 
037674 000004 TST77: 
037676 012737 000077 001226 #77 ,STESTN 3zSET TEST NUMBER IN APT MAIL BOX 


— tt ot 0 ot Dt 
— 3 PM PS os SY SS SS SS 


2 


000024 001120 they 320 ITERATIONS 
000001 #1,SERMA ;ONE ERROR ALLOWED 
037736 #177, SLPADR ;LOAD LOOP ON TEST ADDRESS 
012737 037736 001124 _ #177,$LPERR ;LOAD LOOP ON ERROR ADDRESS 
012706 #STACK, SP ;LOAD THE STACK POINTER 
013700 $BASE ,RO :RO UNIBUS ADDRESS OF UUT 
037746 013701 001456 TSTQUE ,R1 R1 = POINTER TO DEVICE 
7 SET voLUNE VALID USING SUBROUT INE 
037752 060556 PC,SETVV :GO SET VOLUME VALID 
BR 10$ BRANCH TO 10$ IF NO ERROR 
— 208 ;RETURN HERE IF ERROR 


10$: 
sEXECUTE A RELEASE TO RESET REQUEST FLOP 


012760 000013 000000 MOV #RLEASE !GO,RMCS1 (RO) ;LOAD RMCS1 
;READ RMMR2 AND SKIP TEST IF REQUEST FLOPS ARENT RESET 


037772 016002 000040 MOV RMMR2 (RO) ,R2 3STORE RMMR2 AT R2 
thks; 042702 037777 BIC #*C<RQA!RQB>,R2 


001025 BNE 20$ 
WRITE THE ATTENTION SUMMARY REGISTER TO SET REQUEST FLOP 


012760 177777 000016 MOV #-1 ,RMAS (RO) LOAD RMAS 
VERIFY THAT REQUEST FLOP IS SET IF PGM IS SET 


016005 000012 MOV RMDS (RO) ,R5 STORE RMDS AT R5 
032705 001000 BIT APGM,R5S ;SEE_IF PGM IS SET 
001415 BEQ 20$ :DONT TEST REQUEST IF PGM IS ZERO 


~ 2 SS Oo SP BB OV OO 


mek ek ed od a ad od ot od St 8 


= 
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016037 


012760 


016002 
042702 
001025 


012760 
016005 
032705 
001415 


016037 


104222 


000040 
037777 
001136 
000040 


000100 


sale 


00000 
040120 
040120 


001100 
001276 
001456 


060556 


000013 


000040 
037777 


000000 


000012 
001000 


000040 
037777 


001136 
000040 


- 
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001142 
001142 


001136 


001226 


001120 
001131 
001122 
001124 


000000 


000006 


PORT REQUEST TEST, PART 2 


RMMR2 (RO) , SBDDAT 
aes eas 


20 

RO, $8DADR 

A#RMMAR2 , SBDADR 

221 ;CANT SEE REQUEST BY RMAS 


STORE RMMR2 AT $BDDAT 


20$: 


RRR ERK KEKE KKK KKK ERK EKKEKKKKKK 


=*TEST 100 PORT REQUEST TEST, PART 3 


TI RIKER KEKE EKER EK KEKE KEKE EEKEKEKEKKREEEKEKKKEKKEKK 


TST100: SCOPE 
MOV 


#100,$TESTN 73SET TEST NUMBER IN APT MAIL BOX 


#20. ,SICNT 320 ITERATIONS 

#1, SERMAX ;ONE ERROR ALLOWED 
#T100,$LPADR ;LOAD LOOP ON TEST ADDRESS 
#T100,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


HSTACK , SP ;LOAD THE STACK POINTER 
$BASE ,RO ;RO = UNIBUS ADDRESS OF UUT 
MOV TSTQUE ,R1 ;R1 = POINTER TO DEVICE 
SET VOLUME VALID USING SUBROUTINE 
JSR PC,SETVV :GO SET VOLUME VALID 
BR 10$ ;BRANCH TO 10$ IF NO ERROR 
— 208 RETURN HERE IF ERROR 


10$: 
sEXECUTE A RELEASE COMMAND TO RESET REQUEST FLOP 


MOV #RLEASE !GO,RMCS1 (RO) ;LOAD RMCS1 
;READ RMMR2 AND SKIP TEST IF REQUEST FLOPS ARENT RESET 


MOV RMMR2 (RO) ,R2 STORE RMMR2 AT R2 
BIC #*C<RQA!RQB>,R2 


BNE 20$ 
WRITE RMDA TO SET REQUEST FLOP 


MOV #0 ,RMDA(RO) ;LOAD RMDA 
VERIFY THAT REQUEST FLOP IS SET IF PGM IS SET 


RMDS (RO) ,R5 STORE RMDS AT R5 
#PGM,R5 7SEE IF PGM IS SET 
208 ;DONT TEST REQUEST IF PGM IS ZERO 


RMMR2 (RO) , SBDDAT STORE RMMR2 AT SBDDAT 
eames coaaetics 


RO, $BDADR 
ARMMR2 , SBDADR 
222 CANT SET REQUEST BY RMDA 


T7100: 


SEQ 0215 


— ee  B 3  3  3 F  FBF FFP HOO OO 
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000004 
012737 


012760 


012760 
012702 


012760 
012760 


016037 
016037 


104223 


041001 
000013 
000002 
141001 
041001 


000026 
000040 
037777 
004000 


100000 
040000 


001136 
000040 


i 1 
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7101 RELEASE TEST 


REE REE KEKE KR ERKKEKEEKKEKK 


‘*TEST 101 RELEASC TEST 


DOSES SIISISICITIOIDIOIIOIIOIOIIOIOIOII IOI IIT TT TTT AD IIA AAI ISSISS ASSN SSA 
TST101: SCOPE 
MOV #101,$TESTN 3zSET TEST NUMBER IN APT MAIL BOX 


#20. ,S1CNT 320 ITERATIONS 

#1 , SERMAX ;ONE ERROR ALLOWED 
#T101,$LPADR ;LOAD LOOP ON TEST ADDRESS 
#T101,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


ASTACK , SP ;LOAD THE STACK POINTER 
$BASE ,RO ;RO = UNIBUS ADDRESS OF UUT 
MOV TSTQUE ,R1 ;R1 = POINTER TO DEVICE 
REQUEST FLOP SHOULD SET WHEN WRITING PMCS1 
SET VOLUME VALID USING SUBROUTINE 
JSR PC,SETVV :GO SET VOLUME VALID 
BR 10$ BRANCH TO 10$ IF NO ERROR 
tae 408 RETURN HERE IF ERROR 


10$: 

sEXECUTE A RELEASE COMMAND 
000024 #DMD !DBEN!MUR,RMMR1(RO) ;LOAD RMMR1 
000000 a ;LOAD RMCS1 


T101: 


000024 #DMD ! DBEN! MUR ! DBCK ,RMMR1 (RO) LOAD RMMR1 
000024 ~ piirpenmsten tent apts (RO) ;LOAD RMMR1 


BNE 20$ ISSUE 2 CLOCKS 
VERIFY FLOPS ARE RESET 


001174 RMDT(RO),$TMPO ;STORE RMDT AT $TMPO 
001142 RMMR2 (RO) , SBDDAT STORE RMMR2 AT SBDDAT 
001142 #*C<RQA!ROB>, SBDDAT 

40$ BRANCH IF REQUESTS ARE RESET 
001174 ADRQ,$TMPO 

30$ ;BRANCH IF SINGLE PORT DEVICE 
001142 #RQA, $SBDDAT 

40$ ;BRANCH IF RQA IS RESET 
001142 #ROB , SBDDAT : 

40$ ;BRANCH IF RQB IS RESET 


30$: 
:DRQ IS ZERO AND A REQUEST FLOP IS ON, OR, DRQ IS ONE AND 
;BOTH REQUEST FLOPS ARE ON 
MOV RO,$BDADR 
001136 ADD ARMMR2 , SBDADR 
ERROR 223 sREQUEST FLOP NOT RESET 
sEND OF TEST 


SEQ 0216 


3 SB BF FF FPP PPI OG OO 
— 32 Bo BO 3 9 4 2 2 9 3 3 3 FFF IPP OO OO 
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SRR II IOI IR III TOIT TOIT ITI IO TOS TOIT TOTTI OS II IIIA 


SeTEST 102 WRITE ATA TEST 


III IR II III TOT III ITO OTTO III II IAI IISA AAAI ISSS SIS SSIS SSS SSSISS A 


000004 TST102: SCOPE 
012737 000102 001226 MOV #102, $TESTN 3;SET TEST NUMBER IN APT MAIL BOX 


000024 001120 ig Peabo 320 ITERATIONS 
000001 #1,SERMA ;ONE ERROR ALLOWED 
040522 #T102, SLPADR ;LOAD LOOP ON TEST ADDRESS 
040522 1124 1102 #T102,$LPERR ;LOAD LOOP ON ERROR ADDRESS 
001100 He SP = LOAD THE STACK POINTER 
$BASE ,R ;RO = UNIBUS ADDRESS OF UUT 
013701 TSTQUE ,R1 :R1 = POINTER TO DEVICE 
: CLEAR THe NDEVICE, gl DIAGNOSTIC MODE THEN SET UNIT READY 
012760 00004 #CLR,RMCS2(RO) ;CLEAR THE MASSBUS 
111160 (R1).RMCS2(RO) ;SELECT UNIT 


012760 000024 #DMD,RMMR1(RO) ;LOAD RMMR1 
012760 000014 #0 ,RMER1 (RO) ;LOAD RMER1 
012760 000042 #0 ,RMER2 (RO) ;LOAD RMER2 


012760 000024 MOV #DMD ! MUR ,RMMR1 (RO) ;LOAD RMMR1 
;WRITE THE ATTENTION SUMMARY REGISTER 
111102 MOVB (R1) ,R2 ZASSEMBLE THE ATA BIT IN R3 
042702 #°CUNTMSK ,R2 
116203 ATNTBL (R2) ,R3 
042703 #°CATNMSK R3 


010360 000016 MOV R3,RMAS (RO) ;LOAD RMAS 
;READ RMDS AND VERIFY THAT ATA IS RESET 


016037 000012 RMDS(RO) ,SBDDAT ;STORE RMDS AT $BDDAT 
077777 #ACATA, SBDDAT 
BRANCH IF ATA IS RESET 


10$ 

RO, $BDADR 
ARMDS , $BDADR 
SGDDAT 

224 CANT CLEAR ATA 
20$ 


10$: 
;READ RMAS AND VERIFY ATA IS RESET 
SINE) LEROAE ;STORE RMAS AT $BDDAT 
001142 R3,$B8DDAT 
20$ 
001140 : SGDDAT 
001136 RO, $BDADR 


062737 000016 001136 ARMAS , $BDADR 
104225 225 ;RMAS ATA NOT ZERO 


me mee mee ee ek el ek ee ek ed ed ed at od 0d od I od I to 


a a a aa a a ae ae ae ae ae a eae ee ae ee ae ee ee ee ee ee ee ee ee a ee 


;BRANCH IF ATA IS RESET 


~~ wo et OB 9 3 8 9 3 Bh 3 3 3 FP PPP PP PPO OOO OO 


Ru PR Rm  R 3 PR RMP I SP PO OS 
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i's 34 040720 208: sEND OF TEST 


POPP T TTT TTT TT ETT TTT TTT TTT TTT OTT TTT OTT TTT TTT TTT i TTT 


TATEST 103 RESET ATA BY GO TEST 


RRR REE EEE REE REE KEE KEE EERE EERE 


000004 TST103: SCOPE 
012737 MOV #103, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 


#20. ,S$1CNT 320 ITERATIONS 

#1, SERMAX ;ONE ERROR ALLOWED 
#T103,$LPADR ;LOAD LOOP ON TEST ADDRESS 
#T103,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


ASTACK, SP : LOAD THE STACK POINTER 
$BASE ,RO ;RO = UNIBUS ADDRESS OF UUT 
TSTQUE ,R1 :R1 = POINTER TO DEVICE 
ACLR,RMCS2(RO) ;CLEAR THE MASSBUS 
(R1).RMCS2(RO) . :SELECT UNIT 
#DMD.RMMR1(RO) ;LOAD RMMR1 

012760 #0,RMER1 (RO) ;LOAD RMER1 

012760 #0 ,RMER2 (RO) ;LOAD RMER2 


012760 MOV #DMD ! MUR !DBEN,RMMR1(RO)_ ;LOAD 


RMMR 1 
WITH DEBUG CLOCK ENABLED, SET GO AND VERIFY THAT ATA IS RESET 
012760 000001 #GO.RMCS1(RO) ;LOAD RMCS1 
016037 000012 001142 RMDS(RO) ,SBDDAT ;STORE RMDS AT SBDDAT 


ee ee el ed ed ed ed ed ot ot od tt IH OI OI I 


ee a are ee ee ee re ee ae ee ee ee ee ee ee ee 


077777 001142 on 


001140 SGDDAT 
RO, $BDADR 
001136 ARMDS , SBDADR 
226 CANT RESET ATA WITH GO 


10$: END OF TEST 


CL IRI RIE I KIKI IKKE RR E KEE KER 


s*TEST 104 UNIT READY ATA TEST 


;BRANCH IF ATA IS RESET 


SRR RRR ERK KEKEEKEREREKEEKKEKEREKREEEKKEKEKKKEKEK 


000004 TST104: SCOPE 
012737 000104 MO #104, $TESTN 32SET TEST NUMBER IN APT MAIL BOX 


000024 1120 #20. ,$1CNT 220 ITERATIONS 

000001 #1, SERMAX ONE ERROR ALLOWED 

041146 1122 #7104, $LPADR ;LOAD LOOP ON TEST ADDRESS 
012737 041146 001124 MO #T104,$LPERR LOAD LOOP ON ERROR ADDRESS 


012706 001100 "MoO ASTACK, SP :LOAD THE STACK POINTER 


~ 8 Bm BS BB BB 8 3 2 3 BB 3 2 FF FPF BPP PO HOO OO 


RARAWN= 
ARONKRAK 
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013700 001276 MOV $SBASE ,RO ;RO = UNIBUS ADDRESS OF UUT 

013701 001456 MOV TSTQUE ,R1 3R1 = POINTER TO DEVICE 
SET DIAGNOSTIC MODE AND CLEAR ATA 

012760 000040 000010 MOV ACLR,RMCS2(RO) ;CLEAR THE MASSBUS 

111160 000010 MOVB (R1),RMCS2(RO) ;SELECT UNIT 

012760 000001 000024 #DMD,RMMR1(RO) ;LOAD RMMR1 

012760 000000 000014 #0,RMER1 (RO) LOAD RMER1 

012760 000000 000042 #0 ,RMER2 (RO) ;LOAD RMER2 


012760 177777 000016 MOV #-1 ,RMAS (RO) ;LOAD RMAS 
( AND VERIFY ATA IS SET 


012760 001001 000024 #DMD ! MUR , RMMR1 (RO) ;LOAD RMMR1 


000012 001142 MOV RMDS(RO) ,SBDDAT ;STORE RMDS AT SBDDAT 
077777 001142 #*CATA, $BDDAT 
0$ ;BRANCH IF ATA IS SET 


7 
RO, $BDADR 
001136 ARMDS , SBDADR 
001140 MO #ATA,$GDDAT 
108 227 zATA NOT SET BY 01 READY 
:CLEAR ATA, RESET UNIT READY, AND VERIFY ATA IS SET 
012760 177777 000016 #-1 ,RMAS (RO) LOAD RMAS 
012760 000001 000024 #DMD,RMMR1(RO) ;LOAD RMMR1 


016037 000012 001142 RMDS(RO) ,SBDDAT ;STORE RMDS AT SBDDAT 
077777 001142 ee 


001136 
000012 001136 
100000 001140 gata. , SGDDAT 


@ off off of i off off oft odd of 


aft off 288 off oft 28 


aad oft .08 wat 


me ed ed et od ot od I od ad tt t= ot ot ot ot I = 
et et od) 3 0 St od SS od od ot oo = ot I I I I I 
a ott a8 Aa 


4 
4 
7 


zATA NOT SET BY 10 READY 
20$: END OF TEST 


DD III I III TT IIR TTT IRI KIRK IRR REE EERE EERE 


z*TEST 105 ERROR ATA TEST 


SLI II IRI RIK EIR EIA EEA RE REE EERE 


000004 TST105: SCOPE 
012737 MOV #105, $TESTN 32SET TEST NUMBER IN APT MAIL BOX 


- 
: 


#20. ,$1CNT 320 ITERATIONS 

#1 , SERMAX [ONE ERROR ALLOWED 

#T105,$LPADR ;LOAD LOOP ON TEST ADDRESS 
012737 #T105.$LPERR LOAD LOOP ON ERROR ADDRESS 


012706 ; #STACK, SP :LOAD THE STACK POINTER 
013700 $BASE ,RO RO = UNIBUS ADDRESS OF WUT 


11: 
11: 
11. 
11: 
11, 
11, 
11, 
11, 
11, 
11, 
11, 
11. 
11. 
11. 
11. 
11. 
11, 
11. 
11. 
11. 
11. 
11. 
11. 
11. 
11. 
11. 
11, 
11. 
11. 
11. 
11 


— J ON 
ROONS 
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041420 


041424 
041432 


041436 
041444 
041452 
041460 


21-AUG~ 
013701 


012760 
111160 


012760 
012760 
012760 
012760 


012760 


016037 
peer ae 


012702 
012760 
111160 
012760 
012760 
012760 
011203 
060003 
005013 


001456 
000010 
000001 
000000 
000000 
177777 
177777 
000012 
077777 


100000 
001136 
000012 


000040 
000010 


000001 
177777 
177777 


MACY11 30A(1052) 
T105 


000010 


000024 


000014 
000042 
000016 


000014 


001142 
001142 


001140 
001136 


001226 


001120 
001131 


000010 


000024 
000014 
000016 


MOV TSTQUE ,R1 
; CLEAR ys Deve AAC RESET ATTENTION 


MOVB 
MOV 
MOV 
MOV 


5 
21-AUG-78 ae Py PAGE 220 
ERROR ATA TEST 


;R1 = POINTER TO DEVICE 


S2(RO) ;CLEAR THE MASSBUS 
(R1) “RMS (RO) 7SELECT UNIT 


#DMD,RMMR1(RO) ;LOAD RMMR1 
#0 ,RMER1 (RO) ;LOAD RMER1 
#0 ,RMER2 (RO) ;LOAD RMER2 


MOV #~1 ,RMAS (RO) ;LOAD RMAS 
WRITE ONES IN ERROR REGISTER 1 AND VERIFY ATA IS SET 


10$: 


#-1,RMER1(RO) ;LOAD RMER1 


RMDS(RO), Lewes ad STORE RMDS AT SBDDAT 
io , SBDDAT 


0s 
HATA, $GDDAT 


231 z;ATA NOT SET BY COMP ERROR 
END OF TEST 


Ff FRI II III III IIT IT ITT TRI II I IOI IIIA IAI AI IS IAL IASI ISA II SISA SIS SI ASS 


s*TEST 106 


REGISTER TRANSFER ATA TEST 


5 RI IRR EEE RRR KEE ERE EKER EK EE KEE ERK 


re 


TST106: SCOPE 


T7106: 


MOV 
MOVB 


MOV 
MOV 


MOV 
nas = TEST - REGISTER AND VERIFY ATA 


ADD 
CLR 


#106,$TESTN 73SET TEST NUMBER IN APT MAIL BOX 


#20. ,SICNT 320 ITERATIONS 

#1, SERMAX ;ONE ERROR ALLOWED 
#T106,$LPADR ;LOAD LOOP ON TEST ADDRESS 
#T106,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


MSTACK , SP = LOAD THE STACK POINicR 
$BASE ,RO UNIBUS ADDRESS OF UUT 


‘ oR 
TSTQUE ,R1 'RI POINTER TO DEVICE 
#100$ ,R2 
i COMPOSITE ERROR AND RESET ATA 


INITIALIZE. TABLE ADDRESS 
AMCLR,RMCS2(RO) ;CLEAR THE MASSBUS 

(R1),RMCS2(RO) ;SELECT UNIT 

#DMD,.RMMR1(RO) ;LOAD RMMR1 

#-1,RMER1(RO) ;LOAD RMER1 

#-1,RMAS (RO? ;LOAD RMAS 

GENERATE REGISTER ADDRESS 


“Ross 


SEQ 0220 





el ek te ed ed ed ed od =) od I od td I I MM 
aif off off off off off off oft ott off oft off off oti ali od 22 


el ee ee ee ee ek eed ek ed ed ed ed ad od ot 0) od I I I I 


nan eR he eh ER Mm MH Bi oli oii 


~~ = Oe ot oo ot oe Bo 9 oo I I I OO SS 


ma e_eeeeeeeeee meee e_ ee Re Re HR Re Heh PR RHR HR 


ee eh et ee ed ed ed de ed etd ot 0d ot ot ot OP I 
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000012 RMDS(RO), > + io STORE RMDS AT $BDDAT 
077777 SBDDAT 

000002 

001140 SGDDAT, - SBDDAT 


001174 R3,$TMPO 
001136 RO, $BDADR 
000012 #RMDS , SBDADR 
232 zATA INCORRECT FOR REG WRITTEN 


;BRANCH IF ATA IS OK 


000004 
TST 
BMI 2 sEXIT IF ENTRY MINUS 


BR 5$ 
208: ER ; JUMP OVER TABLE 


100$: 
: TABLE OF REGISTER ADDRESSES AND ATA BITS 
— RMAS 


«WORD RDA 
-WORD ATA 


-WORD RMCS1 
- WORD 


177777 -WORD -1 END OF TABLE 
000000 - WORD 


200$: END OF TEST 


SLI IR REI IRR RIKER EERE EEE EERE EERE REE ER 


z*TEST 107 P SET ATA TEST 


ISA ISAO III ISI IIIS IIOIIOIOIEIIOIOIOI TOI TOI TOIT TOR IEEE TOIT IASI AIAN SASSI SSSA. 
000004 TST107: SCOPE 
012737 001226 MOV #107, $TESTN 7:SET TEST NUMBER IN APT MAIL BOX 


001120 pg they 320 ITERATIONS 
#1, SERMAX ;ONE ERROR ALLOWED 
#T107,$LPADR ;LOAD LOOP ON TEST ADDRESS 
001124 MO #T107,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


STACK, SP sLOAD THE STACK POINTER 
$BASE ,RO 


TSTQUE,R1 = POIN O DEVICE 
012702 042206 #100$,R2 INITIALIZE FABLE POINTER 


10$: 
;SET VOLUME VALID USING SUBROUT INE 
004737 JSR PC,SETVV :GO SET VOLUME VALID 
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BR 20$ ;BRANCH TO 20$ IF NO ERROR 
ERROR *RETURN HERE IF ERROR 
ae BR 50$ 
SEXECUTE THE COMMAND FROM THE TABLE 
012760 #DMD 'MUR'DBEN,RMMR1(RO) ;LOAD RMMR1 
011203 7 (R2) .R3 :GET FUNCTION CODE 
052703 #GO,R3 
010360 000000 R3,RMCS1(RO) — ; LOAD RMCS1 
012703 #3.R3 
012760 #DMD'MUR'DBEN!DBCK,RMMR1(RO) — ; LOAD RMMR1 


012760 #DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
DEC R3 


BNE 30$ 
;VERIFY THAT ATA IS SET 


000012 001142 RMDS(RO) ,SBDDAT ;STORE RMDS AT S$BDDAT 
077777 001142 aaa SBDDAT 

001136 RO, $BDADR 

000012 001136 #RMDS , SBDADR 


100000 001140 HATA, SGDDAT 
001174 ie -STMPO 


108: zATA NOT SET BY SEQUENCER 
;ADVANCE TABLE POINTER-EXIT IF DONE 

ADD #2,R2 

TST (R2) 


000002 
BMI 50$ 
BR 10$ 

50$: BR 200$ ; JUMP OVER TABLE 


100$: 
; TABLE OF FUNCTION CODES 
WORD OFFSET 
000016 . WORD 


177777 -WORD -1 sEND OF TABLE 
200$: 


FD III II IIR III TTI II III IRIE EERE ER 


s*TEST 110 SET WLE TEST 


DIARIO IDISIIOIISIDISIOIIDIOISISIOISICIIOIOIOIOIOIIIOITI IOI IOI TOT TOT TT TT TI 
000004 TST110: SCOPE 
012737 000110 001226 MOV #110, $TESTN 72SET TEST NUMBER IN APT MAIL BOX 


RRRRREREES 
WONAULSWN—O 


“_ 


000240 NOP 
012737 000024 001120 MOV #20. ,$1CNT 320 ITERATIONS 
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112737 000001 001131 ERMAX sONE ERROR ALLOWED 
012737 001122 arti 15 cL PADR :LOAD LOOP ON TEST ADDRESS 
012737 001124 =i #7110.$LPERR :LOAD LOOP ON ERROR ADDRESS 


#STACK , SP ;LOAD THE STACK POINTER 
$BASE ,RO RO = UNIBUS ADDRESS OF UUT 
TSTQUE ,R1 :R1 = POINTER TO DEVICE 
#100$,R2 : INITIALIZE TABLE POINTER 


10$: 

7SET VOLUME VALID USING SUBROUTINE 
JSR PC,SETVV 3;GO SET VOLUME VALID 

BR 20$ “BRANCH TO 20$ IF NO ERROR 

— $08 ;RETURN HERE IF ERROR 


208: 

ENABLE DEBUG CLOCK AND_SET WRITE PROTECT ACCORDING TO TABLE 
016203 MOV 2(R2) ,R3 7GET WRITE PROTECT FROM TABLE 
052703 BIS #DMD !MUR ! DBEN,R3 ;SET OTHER MAINT BITS 


MOV R3,RMMR1 (RO) ;LOAD RMMR1 
;LOAD AND EXECUTE THE COMMAND FROM THE TABLE 
MOV (R2) ,R4 GET FUNCTION CODE FROM TABLE 
#G0.R4 SET GO 


R4,RMCS1(RO) LOAD RMCS1 
#2,R5 3R5=CLOCK COUNT 
A#DBCK ,R3 SET CLOCK 


a ee ee SS 


te ot td I = = FO = I SD I I 


i el 


R3,RMMR1 (RO) 
ADBCK RS 


;LOAD RMMR1 
RESET CLOCK 
om (RO) ;LOAD RMMR1 


BNE 30$ ISSUE 2 CLOCKS 
:VERIFY THAT WRITE LOCK ERROR IS” ‘ACCORD ING TO TABLE 


001142 RMER1(RO), + STORE RMER1 AT S8DDAT 
001142 #°CWLE , SBDDAT 
001142 MP 4(R2) , $BDDAT 

BRANCH IF WLE 


40$ IS OK 
001140 4(R2) ,$GDDAT § ;SAVE DATA FOR ERROR MSG 
RO, $BDADR 
001136 #RMER1 , $BDADR 


2 SS ot ot ot ot I = 9 3 2 I OI OS 
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011237 001174 MOV (R2) , STMPO ;$TMPO=FUNCTION CODE 
016237 000002 001176 MOV 2(R2),STMP1 sSTMP1=WRITE PROTECT 
ERROR 234 ;WLE INCORRECT 
40$ re 
: ADVANCE TABLE POINTER TO NEXT FUNCTION CODE-EXIT IF DONE 
000006 ADD #6,R2 
000002 TST 
BM! 
BR sREPEAT TEST 
50$: BR ; JUMP OVER TABLE 
100$: 
: TABLE OF FUNCTION CODES, WRITE PROTECT AND WRITE LOCK ERRORS 
wD sWRITE DATA COMMAND 
MwP ;WRITE PROTECT ON 
WLE ;WRITE LOCK ERROR ONE 
wD sWRITE DATA COMMAND 
sMWP OFF 
sWLE OFF 
;READ DATA COMMAND 
sMWP ON 
sWLE OFF 
;READ IN PRESET COMMAND 
sMWP ON 
sWLE OFF 


;END OF TABLE 


ee Se SE Se ee ee ee ee 


ss 


» 


td ot 0 ot 0 I ot ot I I 





000010 
000000 


: 


000000 
177777 
END OF TEST 


BYIYYSF 
WONAUSWA-O 


KERR REE EERE REE EKER EEEEEKEEKEEEKEKEKEEKE 


S*TEST 111 EXCEPTION TEST 


DIGS ISISIOIIOISISIOISIOISIOIOIIDIOISIDIIOIOIOIOIIOIOIIOIOI TOIT TOT TO TOT TOOT TOOT TOT TO 
000004 TST111: SCOPE 
012737 000111 001226 MOV #111, $TESTN 7:SET TEST NUMBER IN APT MAIL BOX 


WITH OCCUPIED SET, EACH OF THE FOLLOWING ERRORS SHOULD CAUSE AN 
EXCEPTION: 


me ed nd ed ed oe =o) 20) = 3) =) 
ECE: 
ovo 


1' 
11 
1 
11 
+ 
| 
5 
1) 
1 
+ 
1' 
1 
1' 
1 i 
¥ 
1 
1 
1 
+ 
+ 
+ 
i i 
1 
1 
- 
1 
i 
1 
1 
1 
| 
1 
1 
1 
1 
1 
1 
1 
1 
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012702 


012760 
111160 


012760 
012760 
012760 
012760 
012703 
012760 
012760 
005303 
001370 


011260 
012737 
004777 


016037 
042737 


060556 


000000 
000000 
041001 
000061 
000002 
141001 
041001 


000014 
000200 
136546 


000024 
167777 


e @ 
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001120 


001124 


000010 


001142 
001142 


001136 


000006 
000034 
000024 
000000 


000024 
000024 


EXCEPTION TEST 


#20. ,$I1CNT 320 ITERATIONS 

#1, SERMAX ZONE ERROR ALLOWED 
#T111,$LPADR ;LOAD LOOP ON TEST ADDRESS 
#7111,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


AMSTACK , SP ;LOAD THE STACK POINTER 

$BASE ,RO ;RO = UNIBUS ADDRESS OF UUT 
TSTQUE ,R1 ;R1 = POINTER TO DEVICE 
#100$,R2 INITIALIZE TABLE POINTER 
VERIFY THAT EXCEPTION IS RESET 

MCLR,RMCS2(RO) = ;CLEAR THE MASSBUS 
(R1),RMCS2(RO) ;SELECT UNIT 

RMMR1 (RO) , SBDDAT STORE RMMR1 AT $BDDAT 


#*CREX , SBDDAT 
20$ ;BRANCH IF EXCEPTION IS 0 


CANT CLEAR EXCEPTION 


20$: 
3387 —— VALID re SUBROUT INE 


PC,SETVV :GO SET VOLUME VALID 
BR 30$ BRANCH TO 30$ IF NO ERROR 
pe 608 ;RETURN HERE IF ERROR 


EXECUTE A WRITE DATA COMMAND TO SET OCCUPIED, RUN AND GO 
#0,RMDA(RO) ;LOAD RMDA 

#0 ,RMDC (RO) LOAD RMDC 

#DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 

9 ataheiatiamee. ;LOAD RMCS1 


#DMD ! MUR ! DBEN! DBCK , RMMR1 (RO) ;LOAD RMMR1 
eee * {umes chilean ;LOAD RMMR1 
ISSUE 2 CLOCKS 


BNE 40$ 
;LOAD ERROR REGISTER WITH ENTRY FROM TABLE AND VERIFY THAT EXCEPTION IS SET 


(R2),RMER1(RO) ;LOAD RMER1 
#200, WATCH SET WATCHDOG TIMER VALUE 
PC ,a@CLOCK START THE CLOCK 


RMMR1 (RO), SBDDAT STORE RMMR1 AT $BDDAT 
#*CREX, SBDDAT 


SEQ 0225 


mee ed od 0d nd ot 0d ot ot ot 2 It ot I I 
ek ce ce ced el ed ed ed 


-~ 





ee ek ek ed ed ed ot ot od od ot to I I I OO SS 
ee ee ee ee ee, ee eo en i 
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10990 042774 001021 BNE 50$ 

10991 042776 005737 001524 TST WATCH HAS CLOCK EXPIRED ?? 11 
10992 043002 001366 BNE 45$ ‘NO = TAKE ANOTHER SAMPLE 11 
10993 043004 004777 136520 JSR PC,aSTOP ‘STOP THE CLOCK 11 
10994 043010 012737 010000 001140 MOV #REX, SGDDAT 11 
10995 043016 010037 00113 MOV RO, $BDADR 11 
10996 043022 062737 000024 001136 ADD #RMMR 1, SBDADR 11 
10997 043030 011237 001174 MOV (R2) , $TMPO 11 
10998 043034 104236 ERROR 236 :CANT SET EXCEPTION 11 
10999 043036 000407 BR 60$ 11 
11000 043040 50$: 11 
11001 ADVANCE TABLE POINTER-EXIT IF DONE 11 
11002 043040 004777 136464 JSR PC, aSTOP STOP THE CLOCK 11 
11003 043044 062702 000002 ADD #2.R2 11 
11004 043050 005712 TST (R2) 11 
11005 043052 001401 BEQ 60$ 11 
11006 043054 BR 10$ 11 
11007 043056 000402 60$: BR 200$ :UUMP OVER TABLE 4 
11009 043060 100$: 11 
11010 :PRESENTLY, THE TABLE HAS ONLY ONE ENTRY, THE TEST USING RMR. THE 11 
11011 ; TABLE SHOULD BE EXPANDED TO TEST ALL THE CONDITIONS LISTED ABOVE IF 11 
11012 A HARDWARE CHANGE IS MADE SUCH THAT IT IS POSSIBLE TO WRITE ERROR 11 
11015 ‘REGISTER 1 WITH GO SET. n 
' 101 ; 043060 000004 .WORD RMR RMR IS CAUSED BY HARDWARE ; - 
11017 043062 000000 . WORD END OF TABLE 1 
11018 043064 2008: sEND OF TEST h 
11020 DIAS IIIIIOIISISISIIUIOISISISIISIIOIUISIDIOIIIIIIOIOIIIIOIOIOIOIIIII IIIT I. 11 
11081 *TEST 112 RECALIBRATE TEST ih 
11023 DDR IRIS TORII TOTO TOI II IIIT OI TOIT TI IOI IOI IO IOI AIA II NIA IAI AIAN 11 
11024 043064 000004 TST112: SCOPE 11 
by 24 043066 012737 000112 001226 MOV #112, $TESTN :zSET TEST NUMBER IN APT MAIL BOX u 
11027 043074 000240 NOP 11 
11028 043076 012737 000024 001120 MOV #20. ,$ICNT 320 ITERATIONS 11 
11029 043104 112737 000001 001131 MOVB #1, $ERMAX sONE ERROR ALLOWED 11 
11030 043112 012737 043126 001122 MOV #T112,$LPADR ;LOAD LOOP ON TEST ADDRESS 11 
1031 eeelge 012737 043126 001124 a MOV #7112.$LPERR :LOAD LOOP ON ERROR ADDRESS 4 
11033 043126 012706 001100 MOV #STACK, SP sLOAD THE STACK POINTER 11 
11034 043132 013700 001276 MOV $BASE ,RO :RO = UNIBUS ADDRESS OF UUT 11 
11039 043136 013701 001456 MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 4 
11037 CDI I III IOI III IO ITI III TO ITO IT TTI AAAI AAAI SAS ISN 11 
11058 VERIFY THAT OPI SETS IF UNIT READY DROPS AFTER DECODE ul 
11040 7SET VOLUME VALID USING | SUBROUT INE 11 
11041 043142 004737 060556 JSR PC, SETVV :GO SET VOLUME VALID 11 
11042 043146 000403 BR 10$ ‘BRANCH TO 10$ IF NO ERROR 11 
11043 043150 104000 ERROR *RETURN HERE IF ERROR 11 
11044 043152 000137 044450 JMP 330$ 11 
11045 043156 10$: 11 
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Bb og J ; ENABLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND 

en 4 043156 012760 041001 000024 #DMD 'MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
043164 012760 000000 000014 #0,,RMER1 (RO) ;LOAD RMER1 

043172 012760 000000 000042 #0,,RMER2 (RO) ;LOAD RMER2 


043200 012760 000007 000000 MOV #RECAL !GO,RMCS1 (RO) ;LOAD_RMCS1 
STEP COMMAND SEQUENCER TO RECAL COM (2 CLOCKS) 
012702 000002 MOV #2,R2 


Muy 
WN—O 


yw 
, 


SooooCco°ooo 
MuIwu 
CONAU 


ul 
oO 


012760 141001 000024 MOV ADMD ! MUR ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 


012760 041001 000024 MOV #DMD 'MUR'DBEN,RMMR1(RO) ;LOAD RMMR1 
005302 DEC Ke 


001370 BNE 20$ 
DROP UNIT READY AND STEP COMMAND SEQUENCER (2 CLOCKS) 


012760 000024 #DMD ! DBEN,RMMR1 (RO) ;LOAD RMMR1 
012702 000002 #2,R2 


ZRREERES 


3& 


012760 000024 #DMD ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
012760 000024 ADMD ! DBEN,RMMR1 (RO) ;LOAD RMMR1 
005302 R2 


001370 BNE 30$ 
VERIFY THAT OPI IS SET 


016037 000014 001142 RMER1 (RO) , SBDDAT ;STORE RMER1 AT $8DDAT 
157777 001142 ent 


0 
020000 001140 #OPI ,$GDDAT 
001136 : RO, $BDADR 
000014 001136 er - SBDADR 


S35 
QARANISS 


N 


ee ek ek ek a ak kk td td a ot 8 I 8 
~ 
On 


1 
1 
: 
: 
1 
1 
1 
4 
1 
5 
: 
; 
1 
1 
1 
j 
; 
1 
1 
: 
; 
: 
1 
: 
: 
1 
1 
1 
1 
: 


oooco°oc[“ec7e]ga 


3 


OPI NOT SET DURING RECAL 
043332 001124 40$: #50$,.$LPERR ; CHANGE LOOP ON ERROR ADDRESS 


SL III RRR ER ERE REE EER 


;VERIFY THAT RECALIBRATE ABORTS DURING EXECUTION 


50$: 
3SET VOLUME VALID USING SUBROUTINE 
JSR PC,SETVV 3;GO SET VOLUME VALID 
BR 60$ ;BRANCH TO 60$ IF NO ERROR 
ERROR RETURN HERE IF ERROR 
044450 JMP 330$ 


060556 


BSLSSRESLSSESSSSERES 


ENABLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND 
012760 041001 000024 MOV ADMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 


we PB Bo 9 3 FP 2 2 2 3 3 FB FB 3 PFI OOO OV Oe 


eee ee ee ee eee 
me me ek ek ee ek ed ek ed ed ed od od od od 


—? 
2s 


s 
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043354 012760 000000 000014 MOV #0,,RMER1 (RO) ;LOAD RMER1 
043362 012760 000000 000042 MOV #0,,RMER2 (RO) ;LOAD RMER2 


043370 012760 000007 000000 MOV #RECAL !GO,RMCS1 (RO) ;LOAD RMCS1 
STEP THE COMMAND SEQUENCER TO FIRST TEST FOR ABORT (3 CLOCKS) 
012702 000003 MOV 2 


an 
NN 
zw 


— 
= 
at 
oo 
Wr 


— oe ot td SY oS 


mee ek kk kk a ak ad a ot od ot 2 ot I a SS 


012760 141001 000024 MOV ADMD ! MUR ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 


012760 041001 000024 oer an iit *LOAD RMMR1 


BNE 70$ 
SET DRIVE FAULT TO CAUSE ABORT CONDITION 


MOV ADMD ! MUR ! DBEN! MDF , RMMR1 (RO) ;LOAD RMMR1 
— 2 a AND VERIFY GO IS RESET 


Sd 


012760 041101 000024 
012702 000002 


WLS ZHVARARWN=SSRIFAR 


012760 141101 000024 #DMD ! MUR ! DBEN! MDF ! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
012760 041101 000024 fog !MUR ! DBEN! MDF ,RMMR1 (RO) ;LOAD RMMR1 
80$ 


000009 001142 RMCS1(RO) , SBDDAT STORE RMCS1 AT S$BDDAT 
177776 = 001142 gos - SBDDAT 
001136 RO, $8DADR 
001140 $GDDAT 
242 ;GO NOT RESET DUE TO ABORT 


043512 001124 90$: #100$,$LPERR CHANGE LOO? ON ERROR ADDRESS 


mee eh tk ek ed ke ed ed a nd ot nd ot 


RK EEKEEKKEKKEKEEKEKEKEKEKEEKEEEKEEKKKKEK 


:VERIFY OPI SETS IF ON CYLINDER LATCH DOESNT CLEAR 


100$: 
;SET VOLUME VALID USING SUBROUTINE 
JSR PC,SETVV :;GO SET VOLUME VALID 
BR 110$ :BRANCH TO 110$ IF NO ERROR 
ERROR ;RETURN HERE IF ERROR 
044450 1108 JMP 330$ 
: ENABLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND 


012760 041001 000024 MOV #DMD!MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
012760 000014 MOV #0,RMER1 (RO) ;LOAD RMER1 
012760 000042 MOV #0,,RMER2 (RO) ;LOAD RMER2 


012760 000000 MOV #RECAL !GO,RMCS1(RO) ;LOAD RMCS1 
; STEP THE COMMAND SEQUENCER 


060556 


FWHM —OCOONAUSWN—OO 
— 
kk ke ek ek ed ed ed ed ed od od od ot od ad I = med ee ed ed ed ed od ot od = od 2 I I I I OD = 


— 43 BB 3 2 8 PB 8 2 3 FF BB A SP BPH VPI I OO Oe 
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7 
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1 
1 
1 
1 
1 
1 
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1 
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1 
1 
1 
1 
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1 
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1 
1 
1 
1 
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1 
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043556 012702 000017 MOV #15. ,R2 
043562 120$: 


043562 012760 141901 000024 MOV #DMD ! MUR ! DBEN! DBCK , RMMR1 (RO) ;LOAD RMMR1 


012760 041001 000024 ore > Pepecpastncrnmatacatennn (RO) ;LOAD RMMR1 


BNE 120$ 
VERIFY THAT OPI IS SET 


000014 001142 RMER1 (RO) , SBDDAT STORE RMER1 AT $SBDDAT 
157777 001142 


007136 
000014 001136 
020000 001140 


oO 
N 
2 


wo 


;OPI NOT SET DUE TO ON LATCH 
043650 001124 1308: #150$,$LPERR ; CHANGE LOOP ON ERROR ADDRESS 


zs We KKK KEKE EKEKEKEKEKREREEKKEEKEEKEKKKK 


:VERIFY ATA SETS IF DRIVE COMPLETES RECALIBRATE (ON CYLINDER SETS) 


BISARAVISSELEALATSS 


150$: 
;SET VOLUME VALID USING SUBROUTINE 
JSR PC,SETVV :GO SET VOLUME VALID 
BR 160$ ;BRANCH TO 160% IF NO ERROR 
ERROR ZRETURN HERE IF ERROR 
044450 wien JMP 330$ 
3 ENABLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND 


012760 041401 000024 #DMD!MUR!DBEN!MOC,RMMR1(RO) — : LOAD RMMRT 
012760 000000 000014 #0.RMER1(RO) LOAD RMER1 

012760 000000 000042 #O.RMER2(RO) LOAD RMER2 

012760 000007 000000 W#RECAL'GO,.RMCS1(RO) __ : LOAD_RMCS1 


MOV 
; STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (13 CLOCKS) 
012702 000015 MO #13.,R2 


060556 


ke ed ed a nd = nd = od = od 0d = od ot I I I HI I SO I 
-_ _ _ _ ee a ee ee ee 


179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 


012760 141401 000024 ADMD ! MUR ! DBEN! DBCK ! MOC ,RMMR1 (RO) LOAD RMMR1 
012760 041401 000024 MOV STE Ue (RO) ;LOAD RMMR1 


Rass 


Non 
RS 


BN 170$ 

DROP ON CYLINDER TO RESET LATCH, THEN SET ON CYLINDER 
012760 000024 MOV #DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
012760 000024 MOV #DMD ! MUR ! DBEN! MOC ,RMMR1 (RO) ;LOA 


D RMMR1 
; STEP COMMAND SEQUENCER TO SET ATTENTION (3 CLOCKS) 
012702 MOV #3,R2 


sss 
— S@ B  P F B P FV IO SO O 


ee 


NMNMoNNr 
Who 
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CZRMJC.P11 21-AUG-78 09:19 
012760 141401 000024 #DMD ! MUR ! DBEN! MOC ! DBCK , RMMR1 (RO) ;LOAD RMMR1 
000024 ~aheneeetee ose (RQ) ;LOAD RMMR1 


BNE 180$ 
VERIFY ATA IS SET 


000012 001142 RMDS(RO) ,SBDDAT ;STORE RMDS AT SBDDAT 
077777 001142 soe - SBDDAT 


100000 001140 HATA, $GDDAT 
001136 RO, $BDADR 
000012 001136 #RMDS , SBDADR 
244 ;ATA NOT SET BY RECAL 


044046 001124 190$: #200$,$LPERR CHANGE LOOP ON ERROR ADDRESS 


FI I IR RII IK KEIR EEE ER ERR ER EEK 


:VERIFY THAT RECALIBRATE ABORTS AFTER EXECUTION DURING WAIT LOOP 


NOMININININPININDIN @ 2 SS eS 


200$: 
SET VOLUME VALID xr SUBROUT INE 
060556 JSR PC,SETVV :GO SET VOLUME VALID 
BR 2108 SBRANCH TO 210$ IF NO ERROR 
ERROR ;RETURN HERE IF ERROR 
BR 330$ 


ENABLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND 
012760 041401 000024 ADMD ! MUR ! DBEN! MOC ,RMMR1 (RO) ;LOAD RMMR1 
_ 012760 000000 000014 #0 ,RMER1 (RO) ;LOAD RMER1 
012760 000000 000042 #0 ,.RMER2 (RO) ;LOAD RMER2 
012760 000007 000000 MOV #RECAL !GO,RMCS1(RO) ;LOAD RMCS1 


S 
; STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (13 CLOCKS) 
012702 000015 MOV #13. ,R2 


eee ee ee eee ee ee ee Se LT, 
ee kk ek kk ed td td dt td td a st 
NONMNMNNo nono NonofMno No Nonny none Mn ponenofonofvrv 


240 
241 
242 


RK 
Rw 


012760 141401 MOV #DMD ! MUR ! DBEN! MOC ! DBCK ,RMMR1 (RO) ;LOAD RMMR1 


012760 041401 MOV ADMD ! MUR ! DBEN! MOC ,RMMR1 (RO) ;LOAD RMMR1 
3 eS 


mee eek ek ed ed ed ed ed od od od od Po 8 8 OO 


ee a ee ee ee ee ee eee 


— 


BNE 220$ 
DROP ON CYLINDER TO RESET LATCH, LEAVE ON CYLINDER 0 


012760 041001 000024 MOV #DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
; STEP COMMAND SEQUENCER THROUGH wait L LOOP (7 CLOCKS) 
012702 000007 MOV #7 ,R2 


012760 141001 000024 MOV #DMD ! MUR ! DBEN! DBCK , RMMR1 (RO) ;LOAD RMMR1 
012760 041001 000024 MOV #DMD!MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 


ow Bo 8 PB 8 9 8 8 3 9 3 FFF BP PBB OOO 


11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
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005302 DEC R2 
001370 BNE 2308 
VERIFY THAT GO IS STILL SET 


016037 000000 RMCS1(RO), ne ;STORE RMCS1 AT $BDDAT 
37 177776 ouoee” ,SBDDAT 


2 
000001 #G0,$GDDAT 
001136 RO, $BDADR 


ERROR 245 
SET SEEK INCOMPLETE ERROR 


-_ 


WVVVNVUVVUNNNVNVVNNNARNKAANN: 


;GO RESET EARLY DURING RECAL 


012760 041201 000024 MOV ADMD ! MUR ! DBEN! MSER , RMMR1 (RO) D_RMMR1 
; STEP COMMAND SEQUENCER AND VERIFY GO Resets. 3 CLOCKS) 
012702 000003 MOV #3,R2 


Mmrovwrwnrn 
00 00 CO 
ARG 


012760 141201 000024 #DMD ! MUR ! DBEN! MSER ! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
012760 041201 000024 #DMD ! MUR ! DBEN!MSER , RMMR1 (RO) ;LOAD RMMR1 

005302 R2 

001370 2508 


016037 000000 001142 MO RMCS1(RO) , SBDDAT STORE RMCS1 AT S$BDDAT 
2737 177776 001142 #*CGO, $BDDAT 


260$ 
001136 RO, $BDADR 
001140 SGDDAT 

246 ;GO NOT RESET DUR TO WAIT ABORT 
044310 260$: #300$,,$LPERR ; CHANGE LOOP ON ERROR ADDRESS 


2 RRR EERE EEEEKKKKKKEKEEKEKKEERKEKKEKKEKEEKEEKKEKEKEKKKKEKK 


‘VERIFY THE TAG BUS DURING RECALIBRATE 


300$: 
SET VOLUME VALID USING SUBROUTINE 
060556 JSR PC,SETVV :GO SET VOLUME VALID 
BR 310$ BRANCH TO 310$ IF NO ERROR 
ERROR RETURN HERE IF ERROR 
BR 330$ 


ENABLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND 
000024 ADMD ! MUR ! DBEN! MOC ,RMMR1 (RO) ;LOAD RMMR1 
012760 000014 #0 ,RMER1 (RO) ;LOAD RMER1 
012760 000042 #0 ,RMER2 (RO) ;LOAD RMER2 
012760 000007 000000 #RECAL !GO,RMCS1(RO) ; LOAD 


D RMCS1 
012702 #400$ ,R2 ; INITIALIZE TABLE POINTER 
: VERIFY TAG BUS ACCORDING TO TABLE 


MMMM 
SSepeeeceeyyepepesayeeey 
~ 2 os oo od oo oo I 2 PB BD OO OO OS SO 


MVUNVVNVVVNNVVVVVYVVYNVNYNANN 


WIWWAWAWNWNW 
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WOSONAULSWR— © 


ad od 
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RMMR2 (RO) ,$SBDDT STORE RMMR2 AT $BDDAT 
150000 #RQA!ROB! TST, SBDDAT 
001142 (R2) , SBDDAT 
320$ 
001140 (R2) , SGDDAT 
001136 RO, $BDADR 
000040 #RMMR2 , SBDADR 
eahe : INCORRECT TAG BUS DURING RECAL 


ps ~ ENTRY IN TABLE-EXIT IF DONE 


tA 


(Re) 
BMI 330$ EXIT IF ENTRY NEGATIVE 
STEP THE COMMAND SEQUENCER AND REPEAT VERIFICATION 


012760 MOV #DMD ! DBEN! MUR ! MOV ! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
012760 MOV #DMD ! DBEN! MUR! MOC ,RMMR1 (RO) ;LOAD RMMR1 
000743 BR 315$ 

330$: BR 500$ ; JUMP OVER TABLE 

400$: 

TABLE OF TAG BUS CONTROL AND BIT VALUES 
A ;BUS BITS AT HIGH IMPEDANCE STATE 
CC! CH!BB06 CONTROL BITS ENABLED, BIT 6 ON 
TAG COMES ON 


eg 


WWNWWWAN WAIN WWW 
BOA RAGA 


W 
FWN—CVONAUESWN—O”O 


2333838 


TAG! CC! CH!BB06 
TAG! CC! CH!BB06 
TAG! CC! CH!BB06 
TAG! CC! CH!BB06 
TAG! CC! CH!BB06 
CC!CH!BB06 TAG GOES OFF 


CC'CH!BBO6 
1777 ;CONTROL BITS DISABLED 
177777 -1 sEND OF TABLE 

500$: sEND OF TEST 


GABAA AAAA RRR Riana nin 


OBNAU 
NMVUNVNVUNNUNVNVNNYUNNNVNUNNRNNNNNNVRAARARARAAY 


ee mel ee ek ee ek dd ed ed ot od ot od ot ot OS OS I 


MNYNNN 


8 KERR ERK EEE KE EEEEKEKEKEEEKRKEEKEKEEKREEKKKKEKKKEKKEKEEKKEEEEEEKK 


SeTEST 113 SEEK TEST 


FDIC II IOIIOIICISIIOISIOIIICIOIIOISIIIOI TI TOI TOT TOT TOTTI TOTS ITAA IAI ISSISSISSISASSAM. 
TST113: SCOPE 
MOV #113, $TESTN 3:SET TEST NUMBER IN APT MAIL BOX 


000004 
012737 


#20. ,SICNT 320 ITERATIONS 

#1, SERMAX ;ONE ERROR ALLOWED 

#T113,$LPADR ;LOAD LOOP ON TEST ADDRESS 
012737 #7113,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


INWNWWW AWWW 
BISISSILISSSSEES SESE ES 
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7113: 


ae 


MOV #STACK ,SP ;LOAD THE STACK POINTER 
MOV SBASE , RO RO = UNIBUS ADDRESS OF UUT 
MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 


ISIS SII SOI ICIS IIIT TOTS RTT TTT AAAI TIS IIISS SAS SSIS AS. 
“VERIFY THAT OPI SETS IF UNIT READY DROPS DURING COMMAND EXECUTION 
SET VOLUME VALID a SUBROUT INE 
060556 JSR PC,SETV ;G0 ad VOLUME VALID 
BR 10$ ;BRANCH TO 10$ IF NO ERROR 
ERROR ;RETURN HERE IF ERROR , 
046214 JMP 330$ 


ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
ADDRESS, AND LOAD SEEK COMMAND 


012760 MOV ADMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
012760 MOV #0 ,,RMDA(RO) LOAD RMDA 
012760 MOV #0,RMDC (RO) LOAD RMDC 
012760 000000 MOV #0,.RMER1 (RO) ;LOAD RMER1 
012760 000000 MOV #0 ,RMER2 (RO) LOAD RMER2 


012760 000005 MOV #MSEEK!GO,RMCS1(RO) ;LOAD RMCS1 
; STEP COMMAND SEQUENCER TO SEEK COM (2 CLOCKS) 
012702 000002 MOV #2,R2 


Seeese 


WWW 
QERRASSS 


WWW 
BLE 


SRERERW 
LRlss 


S882 


3& 


sa - 


012760 141001 ADMD ! MUR ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 


012760 041001 #DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
8:3 5 





WBDNAULSWN—O 


“3 os SS SY SS 


BNE 20$ 
DROP UNIT READY AND STEP COMMAND SEQUENCER (2 CLOCKS) 


012760 040001 000024 ADMD ! DBEN,RMMR1 (RO) LOAD RMMR1 
012702 000002 #2,R2 


BRRARRARARRRRRERESR 
NVNNVANANANN 


ei 
VIS 


012760 140001 000024 ~ ADMD ! DBEN! DBCK , RMMR1 (RO) ;LOAD RMMR1 


012760 040001 000024 ADMD ! DBEN, RMMR1 (RO) ;LOAD RMMR1 
005302 R2 

001370 BNE 30$ 

VERIFY THAT OPI IS SET 


016037 000014 RMER1(RO), + ated ; STORE RMER1 AT S$BDDAT 
2737 157777 0 ae #*COPI , $BDDAT 


40 

#OPI ,S$GDDAT 
RO, $BDADR 
ARMER1 , $BDADR 
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044760 104250 ERROR 250 ;OPI NOT SET DURING SEEK 
044762 012737 044770 001124 40S: MOV #50$,$LPERR CHANGE LOOP ON ERROR ADDRESS 


FI IIIT II I III IIIT 


:VERIFY THAT SEEK ABORTS DURING EXECUTION 


50$: 

;SET VOLUME VALID ge SUBROUT INE 
JSR PC,SETV :GO SET er VALID 

BR 60$ BRANCH TO 60$ IF NO ERROR 

ERROR RETURN HERE IF ERROR 

JMP 330$ 


wv 
Wr 


ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
ADDRESS, AND LOAD SEEK COMMAND 


ADMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
012760 #0 ,RMDA(RO) LOAD RMDA 
012760 #0 ,RMDC (RO) ;LOAD RMDC 
012760 #0,RMER1 (RO) ;LOAD RMER1 
012760 #0 ,RMER2 (RO) ZLGAD RMER2 
012760 MOV #SEEK!GO,RMCS1(RO) 


LOAD RMCS1 
; STEP THE COMMAND SEQUENCER TO FIRST TEST FOR ABORT (3 CLOCKS) 
012702 MOV #3,R2 


BRERRRKRRES 
SVVYurVvy 
OONAW 


P 
oa 
a 


462 
463 
464 
465 
466 
467 
468 


233 


MOV ADMD ! MUR ! DBEN! DBCK , RMMR1 (RO) ;LOAD RMMR1 


MOV #DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
DEC R2 


BNE 70$ 
SET DRIVE FAULT TO CAUSE ABORT CONDITION 
012760 MOV ADMD ! MUR ! DBEN! MDF ,RMMR1 (RO) ;LOAD RMMRi 


STEP 2 CLOCKS AND VERIFY GO IS RESET 
012702 MOV #2,R2 


ek kk a td a ed ot 2 OS a OI a 


ADMD ! MUR ! DBEN! MDF ! DBCK , RMMR.1 (RO) LOAD RMMR1 
"Saltese! -RMMR1 (RO) LOAD RMMR1 
80$ 


RMCS1(RO), ed STORE RMCS1 AT S$BDDAT 
Sos” , SBDDAT 


RO, $BDADR 
$GDDAT 
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045154 104251 ERROR 251 ; ;GO NOT RESET DUE TO ABORT 
045156 012737 045164 001124 90S: MOV #100$,$LPERR CHANGE LOOP ON ERROR ADDRESS 


FLARE RRR EER ERR 


:VERIFY OPI SETS IF ON CYLINDER LATCH DOESNT CLEAR 


100$: 

;SET VOLUME VALID USING SUBROUTINE 
JSR PC,SETVV ;GO SET VOLUME VALID 
BR 110$ ;BRANCH TO 110$ IF NO ERROR 
ERROR ;RETURN HERE IF ERROR 
JMP 330$ 


ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
ADDRESS, AND LOAD SEEK COMMAND 


012760 MOV #DMD ! MUR! DBEN,RMMR1(RO) ;LOAD RMMR1 
012760 MOV #0 ,RMDA(RO) ;LOAD RMDA 
012760 MOV #0 ,RMDC (RO) LOAD RMDC 
012760 MOV #0 ,RMER1 (RO) ;LOAD RMER1 
012760 MOV #0 ,.RMER2 (RO) ;LOAD RMER2 


012760 MOV #SEEK!GO,RMCS1(RO) ;LOAD RMCS1 
; STEP THE COMMAND SEQUENCER 
012702 MOV #15.,R2 


ESR 


333 


MAMMA 
et ed ed ad wd od 2 = 
WONAUBWN—O 


012760 MOV #DMD ! MUR ! DBEN! DBCK , RMMR1 (RO) ;LOAD RMMR1 
012760 MOV #DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
005302 R2 


DEC 
001370 BNE 120$ 
VERIFY THAT OPI IS SET 


016037 000014 RMER1 (RO), a STORE RMER1 AT $B8DDAT 
2737 OP! ,$8DD 


VK Re 


5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 


BAYS 
BIKARAN 


Ww 


OPI NOT SET DUE TO ON LATCH 
012737 130$: #150$,$LPERR CHANGE LOOP ON ERROR ADDRESS 


LARA REE REE RE REERE REE AEE ERE EERE ERERR EERE RRR RE RE 


“VERIFY ATA SETS IF DRIVE COMPLETES SEEK (ON CYLINDER SETS) 


KREFRKFF 
MW O”O 


ke kk ek kk ee ke ee ke ee ek ee ed ed ed dd ed td od ad ot ot oo ot I I OO I 


150$: 

:SET VOLUME VALID USING SUBROUTINE 
JSR PC, SETVV :GO SET VOLUME VALID 

BR 160$ ‘BRANCH TO 160% IF NO ERROR 


RFF 
oon 
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104000 ERROR RETURN HERE IF ERROR 
000137 046214 JMP 330$ 


ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
ADDRESS, AND LOAD SEEK COMMAND 


012760 #DMD ! MUR ! DBEN! MOC ,RMMR1 (RO) ;LOAD RMMR1 
012760 #0 ,.RMDA(RO) LOAD RMDA 

012760 #0,RMDC (RO) ;LOAD RMDC 

012760 #0,.RMER1 (RO) ;LOAD RMER1 

012760 000000 #0 ,RMER2 (RO) ;LOAD RMER2 

012760 000005 MOV #SEEK!GO,RMCS1(RO) 


LOAD RMCS1 
; STEP COMMAND SEQUENCER TO FIRST oN LATCH TEST (13 CLOCKS) 
012702 000015 MOV #13..R2 


— 

—_ 

y Wealeal eal eahealeaheal aleah eal eal eal 

et they MUA IUIUIUTUT 

UEWN—O OONOURWN—O 
eS 


Eas 


NNO 


141401 #DMD ! MUR ! DBEN! DBCK ! MOC , RMMR1 (RO) ;LOAD RMMR1 


041401  fptecnecnnpencioneni niin (RO) ;LOAD RMMR1 


170$ 
DROP ON CYLINDER TO RESET. LATCH, THEN SET ON CYLINDER 
041001 MOV #DMD!MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 


012760 041401 MOV #DMD ! MUR ! DBEN! MOC ,RMMR1 (RO) OAD RMMR1 
; dg COMMAND SEQUENCER TO SET ATTENTION (3 *tLocks) 
012702 000003 3.R2 


BABII 
BNAULWN-OCO”O 


Vw 
283 


ARAL 


012760 141401 ADMD ! MUR ! DBEN! MOC ! DBCK , RMMR1 (RO) LOAD RMMR1 
041401 * Saeaniemaaitan nti (RO) ;LOAD RMMR1 


SEGUE 


BNE 180$ 
VERIFY ATA IS SET 


000012 RMDS(RO), — STORE RMDS AT SBDDAT 
077777 oe , SBDDAT 


90: 
100000 #ATA, $GDDAT 
001136 RO, $8DADR 
000012 #RMDS , SBDADR 
253 zATA NOT SET BY SEEK 
012737 045550 190$: #200$ , SLPERR CHANGE LOOP ON ERROR ADDRESS 


LARA ERE EERE EEE EERE RARER EK EERE ERE RAEREREREE EE 


“VERIFY THAT SEEK ABORTS AFTER EXECUTION DURING WAIT LOOP 
200$: 


Sex 


YYYOYSRYoyyywy www 
SSSRARASS 


B8888 


11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 


S 
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;SET VOLUME VALID USING SUBROUTINE 

JSR SETVV :GO SET VOLUME VALID 
BR 210$ *BRANCH TO 210$ IF NO ERROR 
ERROR SRETURN HERE IF ERROR 

046214 JMP 330$ 


ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
ADDRESS AND LOAD SEEK COMMAND 


012760 000024 #DMD ! MUR ! DBEN! MOC ,RMMR1 (RO) ;LOAD RMMR1 
012760 000006 #0,.RMDA(RO) LOAD RMDA 

012760 000034 #0 ,RMDC (RO) LOAD RMDC 

012760 000014 #0,RMER1 (RO) ;LOAD RMER1 

012760 000042 #0 ,RMER2 (RO) ;LOAD RMER2 

012760 000005 000000 MOV #SEEK!GO,RMCS1(RO) 


;LOAD RMCS1 
; STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (13 CLOCKS) 
012702 000015 MOV #13.,R2 


060556 


REQSERRRCESSAERAAAAAERES 


YSVOVRARADS 


oO 
sistas 


012760 141401 000024 MOV ADMD ! MUR ! DBEN! MOC ! DBCK ,RMMR1 (RO) ;LOAD RMMR1 


012760 041401 000024 nee alee ccaemactn ts adtnnt (RO) LOAD RMMR1 
BNE 220$ 
DROP ON CYLINDER TO RESET LATCH, LEAVE ON CYLINDER 0 


012760 MOV #DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
; STEP COMMAND SEQUENCER THROUGH WAIT LOOP (7 CLOCKS) 
012702 MOV #7 ,R2 


ee ke ek et ek ed ed ed od ed od wd 2) =) =) 2 2 od I 


oO 


012760 MOV #DMD ! MUR ! DBEN! DBCK , RMMR1 (RO) ;LOAD RMMR1 


MOV #DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
DEC R2 


BNE 230$ 
VERIFY THAT GO IS STILL SET 


016037 000000 001142 RMCS1(RO), om STORE RMCS1 AT $SBDDAT 
042737 177776 001142 he , SBDDAT 


001006 4 

012737 000001 001140 #GO,$GDDAT 

010037 001136 MOV RO, $BDADR 

104254 ERROR 254 ;GO RESET EARLY DURING SEEK 
: SET SEEK INCOMPLETE ERROR 


012760 MOV ADMD ! MUR ! DBEN!MSER ,RMMR1 (RO) ;LOAD_RMMR1 
; STEP COMMAND SEQUENCER AND VERIFY GO RESETS (3 CLOCKS) 
012702 MOV #3,R2 


1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
; 
; 
1 
1 
1 
1 
1 
j 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
1 
1 
1 
j 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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012760 141201 #DMD ! MUR ! DBEN!MSER ! DBCK ,RMMR1 (RO) LOAD RMMR1 
012760 041201 . ypemenssnaaetenetet tc (RO) ;LOAD RMMR1 

250$ 


000000 RMCS1(RO) , SBDDAT STORE RMCS1 AT $BDDAT 
177776 Scone” , SBDDAT 


60$ 
001136 RO, S$BDADR 
001140 SGDDAT 
255 ;GO NOT RESET DUE TO WAIT ABORT 


012737 046034 001124 260$: #300$ .SLPERR CHANGE LOOP ON ERROR ADDRESS 
012703 000001 MO #1,R3 INITIALIZE CYLINDER ADDRESS 


ZL ITI II RRR IRR REE REEREEERRERRERRERR 


VERIFY THE TAG BUS DURING SEEK 


300$: 
SET VOLUME VALID ee SUBROUT INE 
JSR PC,SETVV :GO SET VOLUME VALID 
BR 310$ BRANCH TO 310$ IF NO ERROR 
ERROR RETURN HERE IF ERROR 
BR 330$ 


ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
ADDRESS AND LOAD SEEK COMMAND 


012760 ADMD ! MUR ! DBEN! MOC ,RMMR1 (RO) ;LOAD RMMR1 
012760 #0 ,RMDA(RO) LOAD RMDA 

010360 R3,RMDC (RO) LOAD RMDC 

012760 #0 ,RMER1 (RO) LOAD RMER1 

012760 #0 ,RMER2 (RO) ;LOAD RMER2 

012760 00000 #SEEK!GO,RMCS1(RO) 


LOAD RMCS1 
012702 MOV #400$ ,R2 :INITI ALIZE TABLE POINTER 
: VERIFY TAG BUS ACCORDING TO TABLE AND CYLINDER IN R3 


me ee ee ek ek ed et ed od 2d ot 


SSREESREREES 


SSSSSSSE 


3 
wa 


Ss 


001142 RMMR2 (RO) , SBDDAT STORE RMMR2 AT SBDDAT 
001142 #RQA! ROB! TST ,SBDDAT z 


(R2) ,SGDDAT 
R3,$GDDAT OR CYLINDER ADDRESS IN 
001142 MP S$GDDAT,S$BDDAT ;COMPARE EXPECTED AND RECEIVED 
320$ BRANCH IF TAG BUS OK 
* RO,$BDADR 


001136 ARMMR2 , SBDADR 
$36. 7 INCORRECT TAG BUS DURING SEEK 


S& 


1 
i 
FI 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
, 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
} 
1 
i 
: 
1 
1 
\ 
1 
} 
7 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


NNNNANNWNWNDNSD 
ed aed ae ae aed eed ed ed 
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11718 ADVANCE TO NEXT ENTRY IN TABLE-EXIT IF DONE le 

11719 046166 062702 000002 ADD #2,R2 le 

11720 046172 005712 TST (R2) le 

11721 046174 100407 BMI 330$ sEXIT IF ENTRY NEGATIVE le 

1156 5 STEP THE COMMAND SEQUENCER AND REPEAT VERIFICATION i 
« 

Wee 046176 012760 151001 000024 MOV #DMD ! DBEN! MUR ! MOV ! DBCK ,RMMR1 (RO) ;LOAD RMMR1° Ms 
< 

11726 046204 012760 041401 000024 MOV #DMD '!DBEN! MUR! MOC ,RMMR1 (RO) ;LOAD RMMR1 le 

11727 046212 000740 315$ le 

11728 046214 330$: 1 

C4 sREPEAT TAG BUS TEST FOR EACH PRIME CYLINDER, I.E€., 1.2,4.... ‘ 
‘ 

11731 046214 006303 ASL R3 ;SHIFT TO NEXT CYLINDER ¢ 

11732 046216 020327 000512 CMP R3,4512 

11733 046222 10100 BHI 340$ sEXIT IF 512 WAS DONE 

11734 046224 000703 BR 300$ ; TEST NEXT CYLINDER 

He 24 046226 000416 340$: BR 500$ ; JUMP OVER TABLE 

11737 046230 400$: 

11738 

A A 4 ; TABLE OF TAG BUS CONTROL AND BIT VALUES 

11741 046230 001777 . WORD 1777 ;BUS BITS AT HIGH IMPEDANCE STATE 

11742 046232 001777 -WORD 1777 

11743 046234 004000 «WORD CC ;CONTROL BITS ENABLED, BIT 6 ON 

11744 046236 004000 - WORD 

11745 046240 024000 WORD TAG'CC ;TAG COMES ON 

11746 046242 024000 WORD TAG!C 

11747 046244 024000 WORD TAG!CC 

11748 046246 024000 - WORD TAG! CC 

11749 046250 024000 -WORD TAG!CC 

11750 046252 024000 -WORD TAG! 

11751 046254 000 WORD CC ; TAG GOES OFF 

11752 046256 004000 -WORD CC 

es 260 001777 -WORD 1777 ;CONTROL BITS DISABLED 

ety 046262 177777 -WORD -1 sEND OF TABLE 

hh 14 046264 500$: ;END OF TEST 

11759 LL EE EERE RRR ERR RRR ER RRR RR 

sie s*TEST 114 SEARCH TEST ) 

11762 LL REE EERE RRR EERE REE EERE REE ER ER 1, 

11763 046264 000004 TST114: SCOPE 1, 

a3 046266 012737 000114 001226 MOV #114,$TESTN 7z:SET TEST NUMBER IN APT MAIL BOX 

11766 046274 NOP 1, 

11767 046276 012737 000024 001120 MOV #20.,$1CNT 7:20 pam day oy 1, 

11768 046 112737 000001 001131 MOVB #1,SERMAX ONE ERROR AL D 1, 

11769 046312 012737 046326 001122 MOV #7114, $LPADR ;LOAD LOOP ON TEST ADDRESS 1, 

fa 046320 012737 046326 001124 MOV #7114,$LPERR [LOAD LOOP ON ERROR ADDRESS 1, 

11771 046326 1114: 1 

11772 046326 012706 001100 MOV #STACK,SP LOAD THE STACK POINTER 1 

11773 046332 013700 001276 MOV SBASE ,RO 7RO = UNIBUS ADDRESS OF UUT 1, 
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HY 046336 013701 001456 MOV TSTQUE ,R1 ;R1 = POINTER TO DEVICE 


DISA EOS IO EE IEISISISISIOISIIDISIITISISIIOIIISIIOIIUITIDIOIIOISIIUIOITIOIOITIOIOIOIOI I TTT IIE 
;VERIFY THAT OPI SETS IF UNIT READY DROPS DURING COMMAND EXECUTION 
sser as VALID x5 SUBROUT INE 

060556 PC,SETV 3GO SET VOLUME VALID 

BR 108 BRANCH TO 10$ IF NO ERROR 
ERROR RETURN HERE IF ERROR 
050410 JMP 330$ 


ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
ADDRESS, AND LOAD SEARCH COMMAND 


012760 000024 #DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
012760 000006 #0,RMDA(RO) LOAD RMDA 
012760 000034 #0 ,RMDC (RO) LOAD RMDC 
012760 000014 #0 ,RMER1 (RO) ;LOAD RMER1 
012760 000042 #0,,RMER2 (RO) ;LOAD RMER2 


012760 000000 MOV #SEARCH!GO,RMCS1 (RO) ;LOAD RMCS1 
: STEP COMMAND SEQUENCER TO SEARCH COM (2 CLOCKS) 
012702 MOV #2,R2 


NN 
4 4 
3 et et ot 2 OO I tS OI = I 


sam AIA IAAL AIA AAR IA IRA RAIA A AAA 


012760 000024 MOV #DMD ! MUR ! DBEN! DBCK , RMMR1 (RO) ;LOAD RMMR1 


012760 000024 oe clas cmaanensar (RO) ;LOAD RMMR1 


BNE 20$ 
DROP UNIT READY AND STEP COMMAND SEQUENCER (2 CLOCKS) 


012760 000024 MOV ADMD ! DBEN, RMMR1 (RO) ;LOAD RMMR1 
012702 MOV #2,R2 


786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 


012760 000024 MOV #DMD ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
012760 000024 MOV #DMD ! DBEN,RMMR1 (RO) ;LOAD RMMR1 

005302 DEC R2 

001370 BNE 30$ 

VERIFY THAT OPI IS SET 


016037 000014 001142 RMER1 (RO) , SBDDAT STORE RMER1 AT S$BDDAT 
2737 «157777 001142 #*COPI ,$BDDAT 


40 
020000 001140 #OP] , $GDDAT 
001136 RO, $BDADR 
000014 001136 ADD #RMER1 , SBDADR 
257 OPI NOT SET DURING SEARCH 


012737 046546 001124 : #50$,$LPERR ; CHANGE LOOP ON ERROR ADDRESS 


0 00 Co 00 Gp 00 CO Co Co CO 
— eS os SS OS 
FSW CVOONOUFSWN—O 


SSRESESETE 





I 3 
CZ7RMJCO RMO3/2_ DSKLS PRT MACY11 30A( ed slace test 09:22 PAGE 241 SEQ 0241 
CZRMJC.P11 21-AUG-78 09:1 11 ARCH TEST 


am 
NN 
bo Bo) 


bP ahalahahelelalalahehaleheiahelelelelelal REE AREER EKKEKEEEEEKKEKREKE 


VERIFY THAT SEARCH ABORTS DURING EXECUTION 


50$: 
;SET VOLUME VALID ite SUBROUT INE 
060556 JSR PC,SETVV :GO SET VOLUME VALID 
BR 60$ BRANCH TO 60$ IF NO ERROR 
ERROR ;RETURN HERE IF ERROR 
050410 JMP 330$ 


ad aod 
et eh et ent tir 
GRAF 


DOYRARWN HOSDNAUR WOOD 


ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
ADDRESS, AND LOAD SEARCH COMMAND 


012760 000024 #DMD ! MUR! DBEN,RMMR1(RO) ;LOAD RMMR1 
012760 000006 #0 ,RMDA(RO) ;LOAD RMDA 
012760 000034 #0 ,,RMDC (RO) LOAD RMDC 
012760 000014 #0 ,RMER1 (RO) LOAD RMER1 
012760 000042 #0 ,RMER2 (RO) ;LOAD RMER2 
012760 000000 MSEARCH!GO,RMCS1 (RO) ;LOAD RMCS1 


C 
STEP THE COMMAND SEQUENCER TO FIRST TEST FOR ABORT (3 CLOCKS) 
012702 #3,R2 


— eS es os SS SS SS a Ss SS) SS 


me ee et ek ed a ed ed ed nd wd td oe 6) 20) =) 
RARRRRARARR EERE RR EEE 


012760 000024 MOV ADMD ! MUR ! DBEN! DBCK , RMMR1 (RO) ;LOAD RMMR1 


012760 000024 a Shel eimai (RO) ;LOAD RMMR1 


BNE 70$ 
SET DRIVE FAULT TO CAUSE ABORT CONDITION 
012760 041101 000024 #DMD ! MUR ! DBEN! MDF ,RMMR1 (RO) ;LOAD RMMR1 


STEP 2 CLOCKS AND VERIFY GO IS RESET 
012702 000002 MOV #2,R2 


23 BI BB PB BB OO OV HS OO 
SAAD AIA ARIA AA AOA ROA ROA ROAR AIAIAIAIAIAIAINIAINIAINOAIAIAIIIAIINIAD 


SRST RE RES 


Naas 


012760 141101 000024 ADMD ! MUR ! DBEN! MDF ! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
ene 041101 rene AP (RO) ;LOAD RMMR1 
80$ 


000000 RMCS1(RO), > ed STORE RMCS1 AT S$BDDAT 
177776 oe” , SBDDAT 


90 
001136 RO, $BDADR 
001140 $GDDAT 
260 :GO NOT RESET DUE TO ABORT 


7 (THE OTHER TWO ABORT TESTS IN THE COMMAND SEQUENCER ARE TESTED 


SRaRneee 
NOUS W 


RESEES 


1 
1 
1 
: 
1 
1 
1 
5 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ee ek ke ek ed a dd td nd od I od ot od I a 


& 
“i 
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;DURING DATA COMMAND TESTS) 
046734 012737 046742 001124 908: MOV #100$,$LPERR ; CHANGE LOOP ON ERROR ADDRESS 


: 


RARER EERE EEE EERE KEENE 


;VERIFY OPI SETS IF ON CYLINDER LATCH DOESNT CLEAR 


100$: 
;SET VOLUME VALID USING SUBROUTINE 
JSR PC,SETVV :GO SET VOLUME VALID 
BR 110$ ;BRANCH TO 110$ IF NO ERROR 
ERROR ;RETURN HERE IF ERROR 
050410 108 JMP 330$ 
; ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND- SECTOR 
; ADDRESS, AND LOAD SEARCH COMMAND 


012760 MOV #DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
012760 #0 ,RMDA(RO) ;LOAD RMDA 
012760 #0 ,RMDC (RO) LOAD RMDC 
012760 #0 ,.RMER1 (RO) ;LOAD RMER1 
012760 #0 ,RMER2 (RO) ;LOAD RMER2 


012760 MOV #SEARCH!GO,RMCS1 (RO) ;LOAD RMCS1 
STEP THE COMMAND SEQUENCER 
012702 MOV #19. ,R2 


060556 


CPE EEEER SS SERS REAL St 


ek ed ed od wd od 


012760 MOV #DMD ! MUR ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 


012760 44 ~, opie sehmmnsetatcee (RO) ;LOAD RMMR1 


BNE 120$ 
VERIFY THAT OPI IS SET 


ooeo"s MOV RMER1 (RO) , S8DDAT STORE RMER1 AT S$BDDAT 


001136 
000014 
020000 


WOODOOOOOOOO0O 
SUBNAOUSWN-O 


mn 


—_ 
ACA DAA AOA AAR AAAI AAAI AIAIAIAIAIAIAINIAIRIAIAINIAINIIIAIAIAIN 


;OPI NOT SET DUE TO ON LATCH 
012737 047114 130$: #150$,$LPERR ;CHANGE LOOP ON ERROR ADDRESS 


DISC SOI IDOI IDIOIISIIOISIDIIIIOIIOIOIOIIUIOIOIIOIUIIOITIOIOIOI IID I TOOT TOI TT TOIT TIT 
;VERIFY ATA SETS IF DRIVE COMPLETES SEARCH (ON CYLINDER AND 
SECTOR COMPARE SETS) 


11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
119 
11 
11 
11 
119 
11 
119 
11 
11 
11 
11 
11 


dt od ot ot I 2 BP 2 2 2 2 BPH BOBO OO OO 
me me mm mm Pm Mm MMAR IA Am 


150$: 
3s SET wus VALID USING SUBROUTINE 


060556 PC,SETVV :GO SET VOLUME VALID 
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000403 BR 160$ ;BRANCH TO 160$ IF NO ERROR 
104000 ERROR ;RETURN HERE IF ERROR 
000137 050410 JMP 330$ 
ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
ADDRESS, AND LOAD SEARCH COMMAND 
012760 MOV ADMD ! MUR ! DBEN! MOC , RMMR1 (RO) ;LOAD RMMR1 
012760 MOV #0,RMDA(RO) ;LOAD RMDA 
012760 MOV #0 .RMDC (RO) LOAD RMDC 
012760 MOV #0 ,RMER1 (RO) ;LOAD RMER1 
012760 000000 MOV #0 ,RMER2 (RO) ;LOAD RMER2 
012760 000031 MOV #SEARCH!GO,RMCS1 (RO) ;LOAD RM 


CS1 
; STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (17 CLOCKS) 
012702 000021 MOV #17.,R2 


K 3 
052) 21-AUG-78 09:22 PAGE 243 SEQ 0243 
SEARCH TEST 


WOONAUSWN—O 


Wr 


012760 141401 000024 MOV #DMD ! MUR ! DBEN! DBCK !MOC , RMMR1 (RO) ;LOAD RMMR1 


012760 041401 000024 “34 ~petetesmmmninnccateiis (RO) ;LOAD RMMR1 


BNE 170$ 
: DROP ON CYLINDER TO RESET LATCH,AND RAISE INDEX PULSE 
;TO SET FORMAT CHANGE FLOP 


SERERERERERGSSLILIGSSRERER 


SSS 
SWN-OoO 


1; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


me ke ke ad a a od od od od 2 = 2 ot ot J os I 


012760 041005 #DMD ! MUR ! DBEN! MI ,RMMR1 (RO) LOAD RMMR1 
: RAISE ON CYLINDER AND INHIBIT SEARCH TIMEOUT 


012760 051401 MOV ADMD !MUR! DBEN!MOC!DTO,RMMR1(RO) ;LOAD RMMR1 
; STEP COMMAND SEQUENCER TO SEARCH ENABLE (2 CLOCKS) 
012702 000002 MOV #2,R2 


Oo 


012760 151401 MOV #DMD ! MUR ! DBEN! MOC ! DTO! DBCK ,RMMR1 (RO) ;LOAD RMMR1 

012760 051401 MOV ADMD !MUR!DBEN!MOC!DTO,RMMR1(RO) ;LOAD RMMR1 

005302 DEC R2 

001370 BNE 180$ 

+H liae COMPARE BY CLOCKING SECTOR PULSE WITH SECTOR COMPARE 

012760 051403 000024 MOV #DMD !MUR !MOC ! DBEN!DTO!MSC ,RMMR1 (RO) ;LOAD RMMR1 

012760 051443 000024 MOV #DMD!MUR!MOC!DBEN!DTO!MSC!MS,RMMR1(RO) ;LOAD RMMR1 

012760 051403 000024 MOV #DMD ! MUR ! MOC ! DBEN! DTO! MSC ,RMMR1 (RO) ;LOAD RMMR1 
CLOCK SEQUENCER TO SET ATA (3 CLOCKS) 


012702 000003 1858 MOV #3,Re 3R2 = CLOCK COUNT 


mee eh ee ed eh ed ed ed nd od ed oo ot od ot I ot ot I I 
MONON ROAR POPPA AOPOPOPOPO ROMO AO MIP NONI NINN M NNN 


ek ek ee ed ed ed od a td td ot ot 2 
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012760 151401 000024 MOV ADMD !MUR ! MOC ! DBEN!DTO! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
051401 000024 MOV let mrt (RO) ;LOAD RMMR1 


$3 


BNE 185$ 
VERIFY ATA IS SET 


000012 001142 RMDS(RO), SEDDAT | STORE RMDS AT $B8DDAT 
077777 001142 Sosa” , $BDD 


pepesaees 


100000 001140 #ATA,$GDDAT 
001136 RO, $BDADR 
000012 001136 ARMDS , SBDADR 
262 zATA NOT SET BY SEARCH 


047374 001124 190$: #2008, $LPERR CHANGE LOOP ON ERROR ADDRESS 


FIRE EERE ERE EKER EERE EERIE ERE REE KEKE REE EE 


“VERIFY THAT SEARCH ABORTS AFTER EXECUTION DURING SEARCH SEEK LOOP 


ek ae ce ae ed ce ae ed a a ec ae a a ce cd a 
PERE EE 
ad ad ad od aod ed 

QusgWN—oO 


Wr 
oo 
—_ 2d 
N 


200$: 

SET VOLUME VALID USING SUBROUTINE 
JSR PC,SETVV :GO SET VOLUME VALID 

BR 210$ BRANCH TO 210$ IF NO ERROR 

ERROR SRETURN HERE IF ERROR 

JMP 330$ 


ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
ADDRESS AND LOAD SEARCH COMMAND 


012760 ADMD ! MUR ! DBEN! MOC ,RMMR1 (RO) ;LOAD RMMR1 

012760 #0,RMDA(RO) ;LOAD RMDA 

012760 #0,RMDC (RO) ;LOAD RMDC 

012760 #0,RMER1 (RO) ;LOAD RMER1 

012760 000000 #0 ,RMER2 (RO) ;LOAD RMER2 

012760 000031 #SEARCH!GO,RMCS1 (RO) ;LOAD RMCS1 

saneen: ueneed : STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (17 CLOCKS) 
012760 141401 000024 MOV #DMD !MUR ! DBEN! MOC ! DBCK ,RMMR1 (RO) ;LOAD RMMR1 


012760 041401 000024 a 94 SPOOR REET, SITES ;LOAD RMMR1 


BNE 220$ 
DROP ON CYLINDER TO RESET LATCH, LEAVE ON CYLINDER 0 


000024 MOV #DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
; Ag COMMAND SEQUENCER THROUGH WAIT L LOOP (7 CLOCKS) 


ROMA AAA ARORA ARORA ROP RO PROPOR PO PRO PURO PO MOMU PIM RININNINNNNNNNANANANNNNNN 


SB BF BB BBB BH BP BBB SS SO 


012702 
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047512 012760 141001 900024 MOV #DMD ! MUR ! DBEN ! DBCK , RMMR1 (RO) ;LOAD RMMR1 
041901 000024 MOV illite (RO) ;LOAD RMMR1 


BNE 2308 
VERIFY THAT GO IS STILL SET 


009000 001142 RMCS1(RO) , SBDDAT STORE RMCS1 AT S$BDDAT 
177776 =001142 Scone’ ,SBDDAT 


2 
000001 001140 #GO,$GDDAT 
001136 MO RO, $BDADR 


ERROR 26 ;GO RESET EARLY DURING SEARCH 
SET SEEK INCOMPLETE ERROR 


012760 041201 MOV ADMD ! MUR ! DBEN!MSER ,RMMR1 (RO) ;LOAD_RMMR1 

; STEP COMMAND SEQUENCER AND VERIFY GO RESETS (3 CLOCKS) 
012702 000003 MOV #3,R2 
012760 141201 #DMD ! MUR ! DBEN!MSER ! DBCK ,RMMAR1 (RO) ;LOAD RMMR1 
012760 041201 MO ADMD ! MUR ! DBEN:!MSER , RMMR1 (RO) ;LOAD RMMR1 


000000 RMCS1(RO), _ STORE RMCS1 AT S$BDDAT 
177776 OS , SBDDAT 


260 
001136 RO, $BDADR 
001140 S$GDDAT 

264 :GO NOT RESET DUE TO WAIT ABORT 
047654 260$: #265$,$LPERR CHANGE LOOP ON ERROR ADDRESS 


23 KER KKCEKRREEKEREKEEKKEEEEEREEKKKEEEKKEEKKKKEEEEKEKEEKKEKERKKKEEEEEKEKRK 


“VERIFY THAT SEARCH ABORTS DURING SECTOR COMPARE LOOP 
265$: 
;SET VOLUME VALID USING SUBROUTINE 
JSR SETVV :GO SET VOLUME VALID 
270$ “BRANCH TO 270$ IF NO ERROR 
ERROR SRETURN HERE IF ERROR 
JMP 330$ 


ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
ADDRESS, AND LOAD SEARCH COMMAND 


041401 000024 MOV #DMD ! MUR ! DBEN! MOC ,RMMR1 (RO) ;LOAD RMMR1 
000000 000006 MOV #0 ,RMDA(RO) ;LOAD RMDA 
000000 000034 MOV #0 ,RMDC (RO) ;LOAD RMDC 


: 


12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 
12 


eed el ced ee ca ea and een cn ee 
NoNPaNnoNnonoNononofory 
SRLRSRALLS 
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047712 012760 000000 000014 MOV #0,,RMER1(RO) ;LOAD RMER1 
047720 012760 000000 000042 MOV #0 ,RMER2 (RO) ;LOAD RMER2 
047726 012760 000031 000000 MOV SEARCH! GO ,RMCS1 (RO) ;LOAD RMCS1 


STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (17 CLOCKS) 
012702 000021 MOV #17. ,R2 


_ 
Nw 
— 
—_ 
Oo 


012760 14140) MOV #DMD ! MUR ! DBEN! DBCK !MOC , RMMR1 (RO) ;LOAD RMMR1 
612760 041401 MOV #DMD ! MUR ! DBEN! MOC ,RMMR1 (RO) ;LOAD RMMR1 

005302 DEC R2 
001370 BN 


E 275$ 
: DROP ON CYLINDER TO RESET LATCH, AND RAISE INDEX PULSE 
;TO SET FORMAT CHANGE FLOP 


012760 041005 000024 MOV #DMD ! MUR ! DBEN! MI ,RMMR1 (RO) LOAD RMMR1 
; RAISE ON CYLINDER AND INHIBIT SEARCH TIMEOUT 


012760 051401 000024 MOV #DMD !MUR! DBEN!MOC!DTO,RMMR1(RO) ;LOAD RMMR1 
: STEP COMMAND SEQUENCER TO SEARCH ENABLE (2 CLOCKS) 
012702 000002 MOV #2,R2 


151401 000024 MOV #DMD !MUR ! DBEN! MOC ! DTO! DBCK ,RMMR1 (RO) LOAD RMMR1 


051401 000024 — PO aes eeivers (RO) ;LOAD RMMR1 


BNE 280$ 
; VERIFY THAT SEARCH ENABLE IS ON DURING SECTOR COMPARE LOOP 
000004 MOV #4 ,R2 zR2 = CLOCK COUNT 


a ee ee ee eer ee ee ee ee ee ee ed ee 


RVVNVNNVANVNNUVUVVVNNRNVVVVVVVSY 
WwW WWRIRNNVNNNNNNDR 3 2 2 2 eo oe oe 


‘ 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


000024 MOV RMMR1 (RO) , SBDDAT STORE RMMR1 AT SBDDAT 
173777 #*CESRC ,SBDDAT 
282$ ;BRANCH IF SEARCH NOT ENABLED 
151401 #DMD !MUR ! MOC ! DBEN! DTO! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
051401 MOV SPORE ERE (RO) ;LOAD RMMR1 
2815 
283$ 
001140 : #ESRC ,SGDDAT 
MOV RO, SBDADR 
001136 #RMMR1 , SBDADR 
265 SEARCH NOT ENABLED 
SET DRIVE FAULT TO CAUSE ABORT CONDITION 
012760 051501 000024 MOV #DMD !MUR ! DBEN! MOC !DTO! MDF ,RMMR1 (RO) ;LOAD RMMR1 
; STEP 2 CLOCKS AND VERIFY GO IS RESET 


050114 012702 000002 MOV #2,R2 zR2 = CLOCK COUNT 
050120 : 


NVNVNVNNNNNN 


™N 
=—3 = 
MMi 
NOMS 


kk ek kk ad td 
NononohonoMonoNofonory 


— td ow ow 3 2) = 
— Ss VI SY DS 
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12166 
12167 050120 012760 151501 000024 #DMD ! MUR! DBEN! MOC !DTO! MDF !DBCK,RMMR1 (RO) ;LOAD RMMR1 


12168 
050126 012760 051501 000024 MOV #DMD !MUR! DBEN! MOC !DTO! MDF ,RMMR1 (RO) ;LOAD RMMR1 
050134 005302 

050136 BN 285$ 


050140 000000 001142 MOV RMCS1(RO) , SBDDAT STORE RMCS1 AT SBDDAT 
177776 =001142 #*CGO,$BDDAT 


2 
000000 001140 #0, $GDDAT 
050164 001136 MOV RO, $BDADR 
050170 260 3GO NOT RESET DURING SECTOR COMPARE 


050172 012737 050204 001124 290$: #300$,S$LPERR ; CHANGE LOOP ON ERROR ADDRESS 
050200 012703 000001 MO #1,R3 INITIALIZE CYLINDER ADDRESS 


IIHR KEK KEE KEKEEEEEREEKKKREEKEKEEKEEEEKEKEEKEKKK 


‘VERIFY THE TAG BUS DURING SEARCH 


Nm 
ENT 
y 
23% 


ee ed a nd dot 0 od = =) od 2 I 


300$: 

;SET VOLUME VALID USING SUBROUTINE 
JSR PC,SETVV :GO SET VOLUME VALID 
BR 310$ ;BRANCH TO 310$ IF NO ERROR 
ERROR ;RETURN HERE IF ERROR 
BR 330$ 


050216 310$: 
: ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
: ADDRESS AND LOAD SEARCH COMMAND 
050216 012760 041401 000024 MOV #DMD ! MUR ! DBEN! MOC ,RMMR1 (RO) ;LOAD RMMR1 
050224 012760 000000 000006 MOV #0,RMDA(RO) ;LOAD RMDA 


050232 010360 000034 MOV R3,RMDC (RO) LOAD RMDC 


BELRGRAVLSSEVRALATAS BAVAARA 


a ee ee res 
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1 
1 
1 
1 
1 
1 
1 
1 
a 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
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050236 
050244 
050252 


050260 
050264 
050272 
050300 


050302 
050304 


050310 
050310 


050366 
050370 


050372 


012760 
012760 
012760 


012702 


012760 
012760 
000740 


000011 


141401 
041401 


141401 
041401 
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000014 
000042 
000000 


001142 
001142 


001142 


001136 


MOV #0,,RMER1 (RO) ;LOAD RMER1 
MOV #0,,RMER2 (RO) ;LOAD RMER2 


MOV A#SEARCH!GO,RMCS1(RO) ;LOAD RMCS1 

MOV #400$,R2 s INITIALIZE TABLE POINTER 
[THE HARDWARE ECO CHANGE THE PLA OF CS 
SBOARD, THE FOLLOWING 6 LINES 

ZADDED™ SO THAT THE PROGRAM CAN RUN 


3 ON Le § BOARD WITH OR WITHOUT THE ECO 


:C 
#11,R2 :CLOCK T HE COMMAND SEQ 
TO STEP OVER THE FIRST 11 LOCATION 
#141401 ,RMMR1 (ROS ;CLOCK THE COMM SEQ 
#041401 ,RMMR1 (RO) 
11 CLOCK PULSES ? 
1 ;LOOP BACK IF NOT DONE 
MOV #400$+20,R2 SADJUST THE TABLE STARTING LOCATION 
VERIFY TAG BUS ACCORDING TO TABLE AND CYLINDER IN R3 


RMMR2 (RO) , SBDDAT STORE RMMR2 AT SBDDAT 
#RQA!RQB! TST, SBDDAT 

(R2) , SGDDAT 

R3,$GDDAT OR CYLINDER ADDRESS IN 
SGDDAT,$BDDAT ;COMPARE EXPECTED AND RECEIVED 
320$ BRANCH IF TAG BUS OK 

RO, $BDADR 


#RMMR2 , S$BDADR 
266 s INCORRECT TAG BUS DURING SEARCH 
340$ 
TO NEXT ENTRY IN TABLE-EXIT IF DONE 
#2,R2 
(RO) 
BMI 330$ sEXIT IF ENTRY NEGATIVE 
STEP THE COMMAND SEQUENCER AND REPEAT VERIFICATION 
MOV ADMD ! DBEN! MUR! MOC ! DBCK ,RMMR1 (RO) ;LOAD RMMR1 


MOV os !MUR ! MOC , RMMR1 (RO) LOAD RMMR1 


330$: 

;REPEAT TAG BUS TEST FOR EACH PRIME CYLINDER, I1.E.., 1.2.,4.... 
;SHIFT TO NEXT CYLINDER 
sEXIT IF 512 WAS DONE 

BR : TEST NEXT CYLINDER 
340$: ; JUMP OVER TABLE 
400$: 


; TABLE OF TAG BUS CONTROL AND BIT VALUES 


SEQ 0248 


kk ek ee ek ek me ek ee ed ek ek ed ed ed ed ed ad od ad ot hd ot I I 
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;BUS BITS AT HIGH IMPEDANCE STATE 


;CONTROL BITS ENABLED, BIT 6 ON 
TAG COMES ON 


THE TABLE IS CHANGE FOR HARDWWRE CHANGE 
; TABLE TERMINATED HERE 
: TAG GOES OFF 


;CONTROL BITS DISABLED 


177777, END OF TABLE 
500$: END OF TEST 


RARER EEEREEREEREERREEERERREERRKKERKEKKEK 


SeTEST 115 SEARCH TIMEOUT TEST 


hace geet pe te a a ut as apap Sh peg 
000004 TS 
012737 000115 001226 MO #115, $TESTN 7:SET TEST NUMBER IN APT MAIL BOX 


000024 #20. ,SICNT 320 ITERATIONS 
000001 #1, SERMAX ZONE ERROR ALLOWED 
050536 #T115,$LPADR ;LOAD LOOP ON TEST ADDRESS 
012737 050536 _— #T115,$LPERR ;LOAD LOOP ON ERROR ADDRESS 
012706 STACK , SP : THE STACK POINTER 
013700 SBASE .RO RO = UNIBUS ADDRESS OF UUT 
013701 001456 MOV TSTQUE ,R1 ;R1 = POINTER TO DEVICE 
SET VOLUME VALID USING SUBROUT INE 
050552 060556 JSR PC,SETV :GO SET VOLUME VALID 
050556 BR 10$ SBRANCH TO 10$ IF NO ERROR 
050560 104000 ERROR ;RETURN HERE IF ERROR 
050562 BR 90$ 
050564 10$: 
;ENABLE DEBUG CLOCK AND LOAD SEARCH COMMAND 
050564 012760 041401 MOV #DMD ! MUR ! DBEN! MOC , RMMR1 (RO) LOAD RMMR1 
050572 012760 000000 MOV #0 ,RMER1(RO) ;LOAD RMER1 


050600 012760 000000 MOV #0 ,RMER2 (RO) ;LOAD RMER2 


i i a ke ke ak dd od ad od ot od ot ot ot to I tt I 


fl 


cl lll 
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050606 
050614 
050622 


050702 
050710 
050712 


050714 
050720 
050720 


050726 


051024 


21-AUG-78 09:19 


012760 
012760 
012760 
012702 


012760 
012760 


012760 
012760 
012702 


012760 
012760 
005302 
001370 
012702 


012760 
012760 


000000 
000000 
000031 
000021 


141401 
041401 


041001 
041401 
000002 


151401 
051401 


000005 


151401 
051401 


000024 
173777 


004000 
001136 
000024 


041401 
070000 
130502 
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000034 
000006 


000024 
000024 


001142 
001142 


001140 
001136 


000024 
001524 


7115 SEARCH TIMEOUT TEST 


MOV #0,,RMDC (RO) LOAD RMDC 
MOV #0,RMDA(RO) ;LOAD RMDA 


MOV #SEARCH!GO,RMCS1 (RO) ;LOAD_RMCS1 
oe TO TEST FOR ON LATCH RESET (17 CLOCKS) 


#17.,R2 
20S: 
MOV #DMD !MUR ' DBEN! MOC ! DBCK,RMMR1 (RO) ;LOAD RMMR1 
oe = 'MUR !DBEN! MOC ,RMMR1 (RO) ;LOAD RMMR1 


BNE 20$ 
DROP ON CYLINDER TO RESET LATCH, RAISE ON CYLINDER 
MOV #DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 


MOV #DMD ! MUR ! DBEN! MOC , RMMR1 (RO) ;LOAD RMMR1 
7 STEP gas ae TO SECTOR COMPARE LOOP (2 CLOCKS) 


30$: 
MOV #DMD ! DBEN' MUR! MOC !DBCK!DTO,RMMR1 (RO) ;LOAD RMMR1 


nee ~ Passemreteateitstens agtctcitet (RO) ;LOAD RMMR1 


BNE 30$ 
THE COMMAND SEQUENCER IS NOW IN THE SECTOR COMPARE LOOP. STEP 
; THROUGH THE see VERIFY SEARCH IS ENABLED. 


40$: 
MOV #DMD ! DBEN! MUR! MOC ! DBCK!DTO,RMMR1(RO) ;LOAD RMMR1 
MOV ADMD! DBEN'MUR!MOC!DTO,RMMR1(RO) ;LOAD RMMR1 


MOV RMMR1 (RO) , SBDDAT ; STORE RMMR1 AT SBDDAT 
BIC #*CESRC ,SBDDAT 


BEQ 50$ ;BRANCH IF SEARCH NOT ENABLED 
DEC R2 
BNE 40$ 


60$ 
50$: MOV #ESRC , SGDDAT SETUP ERROR MSG 
MOV RO, $BDADR 
ADD #RMMAR1 , SBDADR 


ERROR 265 ; SEARCH NOT ENABLED 

60$ a ae 

;DROP DTO TO ENABLE SEARCH TIMEOUT AND WAIT FOR OPI TO SET. 
MOV #DMD ! MUR ! MOC ! DBEN,RMMR1 (RO) LOAD RMMR1 
MOV #70000 ,WATCH SET WATCHDOG TIMER VALUE 
JSR PC ,acLOCk START THE CLOCK 


70$: 


SEQ 0250 


amo 
NN 
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12369 Vp 
12370 051024 016037 000014 001142 MOV RMER1(RO) , SBDDAT ;STORE RMER1 AT $BDDAT . 
12371 051032 042737 157777 001142 BIC #*COP] , SBDDAT 1: 
12372 051040 001017 BNE 80$ 1: 
12373 051042 005737 001524 TST WATCH 1 
12374 051046 001366 BNE 70$ 1; 
12375 051050 004777 130454 JSR PC,aSTOP ;STOP THE CLOCK 1: 
12376 051054 012737 020000 001140 MOV #OPI , S$GDDAT ;SETUP ERROR MSG 1: 
12377 051062 010037 001136 MOV RO,$8DADR 1: 
12378 051066 062737 000014 001136 ADD #RMER1, SBDADR 1: 
12379 051074 104267 ERROR 267 ;O0PI NOT SET BY SEARCH TIMEOUT 5 8 
12380 051076 000402 BR 90$ 1; 
12381 051100 80S: 1: 
cae 081100 004777 130424 JSR PC,a@STOP ;STOP THE CLOCK | 
12384 051104 90$: sEND OF TEST 1. 
12386 DORIC IIR IORI TOI TUTOR TOIT TIT 13 
icone s*TEST 116 DATA COMMAND TESTS (1) ‘ 
12389 SD RR RR RR BR ATION 1 
390 051104 000004 TST116: SCOPE 1. 
cm 051106 012737 000116 001226 MOV #116, $TESIN ;zSET TEST NUMBER IN APT MAIL BOX Ly 
12393 051114 000240 NOP 1. 
12394 051116 012737 000024 001120 MOV #20. ,SICNT 320 ITERATIONS 1 
12395 051124 112737 000001 001131 MOVB #1,SERMAX ;ONE ERROR ALLOWED 1, 
12396 051132 012737 051146 001122 MOV aTi16, SLPADR ;LOAD LOOP ON TEST ADDRESS 1. 
12397 051140 012737 051146 001124 MOV #1T116,$LPERR ;LOAD LOOP ON ERROR ADDRESS 1. 
12398 051146 1116: 1 
12399 051146 012706 001100 MOV MSTACK, SP ;LOAD THE STACK POINTER 1. 
12400 051152 013700 001276 MOV S$BASE ,RO ;RO = UNIBUS ADDRESS OF UUT 1. 
12401 051156 013701 001456 MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 1 
12402 LPAI TOTES IIIT OOD OIEISIDIOIIOSIOISOOIIIOIISOIUID EI 1. 
12403 ;VERIFY DATA COMMAND SETS OPI IF DRIVE NOT READY 1. 
12404 3SET VOLUME VALID USING SUBROUTINE 1 
12405 051162 004737 060556 JSR PC,SETVV 760 et ae a3 VALID 1 
12406 051166 000402 BR 10$ ‘BRANCH 10$ IF NO ERROR 1. 
12407 051170 104000 ERROR ;RETURN HERE IF ERROR 1. 
12408 051172 000471 BR 40$ 1 
12409 051174 10$: 1 
i ; ENABLE DEBUG CLOCK AND LOAD READ COMMAND } 
4 4 051174 012760 041401 000024 MOV #DMD 'MUR 'MOC ! DBEN,RMMR1 (RO) ;LOAD RMMR1 y 
12616 051202 012760 000000 000014 MOV #0,RMER1(RO) LOAD RMER1 1 
ty 051210 012760 000000 000042 MOV #0,RMER2(RO) ;LOAD RMER2 : 
vis 051216 012760 000000 000006 MOV #0 ,.RMDA(RO) ;LOAD RMDA } 
12620 051224 012760 000000 000034 MOV #0, RMDC (RO) ;LOAD RMDC : 
12422 051232 012760 000071 000000 MOV #RD'GO,RMCS1 (RO) LOAD RM 1 
12423 3 STEP COMMAND S SEQUENCER TO UNIT READY test G CLOCKS) . 


12424 051240 012702 000003 MOV #3,R2 
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051244 208: 
051244 012760 141401 000024 MOV #DMD ! MUR ! MOC ! DBEN! DBCK , RMMR1 (RO) ;LOAD RMMR1 
051252 012760 041401 000024 MOV #DMD ! MUR ! MOC ! DBEN,,RMMR1 (RO) ;LOAD RMMR1 
051260 005302 DEC R2 
051262 001370 BNE 208 
DROP UNIT READY 
051264 012760 040401 000024 MOV #DMD '!MOC!DBEN,RMMR1(RO) ;LOAD RMMR1 
; ig SEQUENCER AND VERIFY OPI SETS (2 CLOCKS) 
051272 012702 000002 #2,R2 
051276 
051276 012760 140401 000024 #DMD ! MOC ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
051304 012760 040401 000024 #DMD!MOC!DBEN,RMMR1(RO) ;LOAD RMMR1 
051312 R2 
051314 30$ 


051316 000014 001142 RMER1(RO), + ad STORE RMER1 AT $BDDAT 
157777 001142 ,SBDDA 


_— SS oS 
af off off 148 188 oft 20d oft 


020000 001140 
001136 


000014 001136 
051354 70 OPI NOT SET DURING DATA 


051356 051364 001124 40$: #50$,SLPERR ; CHANGE LOOP IN ERROR TEST 


33 RARER ERR EERE EERE K 


VERIFY DATA CUMMAND ABORTS AT LOCATION 129 


50$: 

7SET VOLUME VALID USING SUBROUTINE 
JSR PC,SETVV 3GO SET VOLUME VALID 
BR 60$ ;BRANCH TO 60$ IF NO ERROR 
ERROR ;RETURN HERE IF ERROR 
BR 150$ 


051376 
DEBUG CLOCK AND LOAD READ COMMAND 


051376 012760 #DMD ! MUR ! MOC ! DBEN,, RMMR1 (RO) ;LOAD RMMR1 
051404 012760 #0 ,RMER1 (RO) ;LOAD RMER1 
051412 012760 #0 ,RMER2 (RO) LOAD RMER2 
051420 012760 #0 ,RMDA(RO) ;LOAD RMDA 
051426 012760 #0 ,RMDC (RO) ;LOAD RMDC 


051434 012760 MOV #RD!GO,RMCS1(RO) ;LOAD RM 
;STEP CUMMAND SEQUENCER TO ABORT TEST AT LOCATION. 129 (4 CLOCKS) 
051442 012702 MOV #4 ,R2 


051446 70$: 


ek ee ek ed td dt od ot oo I 2 I I 2 OS OD VV OO OS 4 4 Yo 2-3 
<, = aes oe oe ee nee ee eee ee ee ee ee ee oe eee ee Oe oe Oe ok Oe 
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CZRMJCO RMO3/2 DSKLS PRT 1 MACY11 a 7 ead Bi ga aths 09: 23 PAGE 253 SEQ 0253 
CZRMJC.P11 21-AUG-78 09:19 7116 A COMMAND TESTS (1) 


051446 012760 141401 000024 MOV ADMD ! MUR ! MOC ! DBEN! DBCK , RMMR1 (RO) ;LOAD RMMR1 
051454 012760 041401 000024 MOV #DMD ! MUR ! MOC ! DBEN, RMMR1 (RO) ;LOAD RMMR1 

051462 005302 DEC R2 

051464 001370 BNE 70$ 

SET DEVICE FAULT TO CAUSE ABORT CONDITION 


051466 012760 041501 000024 MOV #DMD !MUR!MOC!DBEN!MDF ,RMMR1(RO) ;LOAD RMMR1 
STEP THE SEQUENCER THROUGH THE TEST FOR ABORT (1 CLOCK) 
051474 012702 000001 MOV #1,R2 


051500 80$: 
051500 012760 141501 000024 MOV #DMD ! MUR ! MOC ! DBEN! MDF ! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
051506 012760 041501 000024 MOV #DMD !MUR!MOC!DBEN!MDF ,RMMR1(RO) ;LOAD RMMR1 
051514 DEC R2 
051516 BNE 80$ 
;ABORT EBL SHOULD NOW BE ACTIVE - USE THE MAINTENANCE REGISTER TO 
FORCE BIT CLOCKS AND VERIFY THAT EBL SETS WITHIN 16 BIT CLOCKS 
051520 012702 000020 MOV #16. ,R2 ;MAXIMUM NUMBER OF BIT CLOCKS 
051524 85$: 
051524 012760 045501 000024 #DMD !MUR!MOC' BEN! MDF !MCLK,RMMR1 (RO) ;LOAD RMMR1 


051532 041501 000024 ADMD !MUR! MOC! DBEN!MDF ,RMMR1(RO) ;LOAD RMMR1 


Anti cal off oft 0d ott otf ofl afd oft off oft oth afl off ofl oft atl ali oll alt ali all ali alia 


A oft 28 


051540 000024 001142 RMMR1 (RO) , SBDDAT STORE RMMR1 AT SBDDAT 
051546 157777 001142 #*CEBL , SBDDAT 
051554 90$ ;BRANCH IF EBL IS SET 


051556 R2 
85$ 
001140 #EBL ,SGDDAT 
RO, SBDADR 
001136 ADD #RMMR 1, SBDADR 


mn ;EBL NOT SET AT DATA ABORT 
150$ 


90$: 
;STEP THE SEQUENCER THROUGH ITS TEST FOR EBL (2 CLOCKS) 
051606 012702 000002 MOV #2,R2 
051612 100$: 
051612 012760 141501 000024 MOV #DMD !MUR ' MOC! DBEN! MDF ! DBCK,RMMR1 (RO) :LOAD RMMR1 


051620 012760 041501 000024 MOV #DMD !MUR!MOC!DBEN!MDF ,RMMR1(RO) ;LOAD RMMR1 
051626 005302 DEC R2 
051630 001370 BNE 100$ 


;ABORT EBL SHOULD NOW BE INACTIVE - FORCE BIT CLOCK USING THE 
SMAINTENANCE REGISTER TO RESET EBL (16 BIT CLOCKS) 
orien 012702 000020 1108: MOV #16. ,R2 ;MAXIMUM NUMBER OF BIT CLOCKS 


051636 012760 045501 000024 MOV #DMD ! MUR ! MOC ! DBEN! MDF !MCLK ,RMMR1 (RO) ;LOAD RMMR1 


aff off 284 284 22 


CONTINUE BIT CLOCKS IF COUNT NOT 0 


we BB 3 2 PP 2 3 3 3 3 FB BIO HOO OO 
a 48 af 46 af 44 44 ae aod 48 .e8 248 .ae -o4 2d 28 Le ote Led 28d hd ode Led 
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CZRMJC.P11 


051656 


051656 
051664 


051716 


051716 
051722 


051722 


051740 


051742 
051750 
051756 
051760 
051764 


21-AUG~78 09:19 


012760 
005302 
001370 


016037 


012702 


012760 
012760 


041501 


000024 
157777 


141501 
041501 


000000 
177776 


001140 
001136 


MACY11 1 saa 
7116 


000024 


000024 
000024 


001142 
001142 


130$: 
sVERIFY 
140$: 


4 
Fig ma. 09: 23 PAGE 254 


COMMAND TESTS (1) 


~ fetlthoteretess 'DBEN!MDF ,RMMR1(RO) ;LOAD RMMR1 
110$ ISSUE 16 BIT CLOCKS THEN TEST 
IS NOW RESET 


RMMR1 (RO) , SBDDAT 
#*CEBL ,SBDDAT 
130$ 


:STORE RMMR1 AT SBDDAT 
;BRANCH IF EBL IS RESET 


;EBL DIDNT RESET ON TIME 


GO RESETS WITHIN 4 CLOCK CYCLES 
Vv #4 ,R2 


#DMD ! MUR ! MOC ! DBEN! MDF ! DBCK ,,RMMR1 (RO) 
Pathe 'MOC!DBEN!MDF ,RMMR1(RO) ;LOAD RMMR1 
140$ 
RMCS1(RO) , SBDDAT 
#*CGO,$BDDAT 
150$ 


$GDDAT 
RO, $BDADR 


STORE RMCS1 AT $B8DDAT 


;LOAD RMMR1 


SEQ 0254 


‘MOV 
051770 274 ;GO NOT RESET DURING DATA ABORT 
051772 052000 001124 150$: #200$,$LPERR CHANGE LOOP ON ERROR ADDRESS 


SLR IRR REE REE REE E RR ERE RE REEERRE ERE ERE EERE REE EERE 


VERIFY SEQUENCER BRANCHES TO SEEK WHEN RUN AND GO FLOP SETS 


200$: 
;SET VOLUME VALID USING SUBROUTINE 
060556 JSR PC,SETVV ;GO SET VOLUME VALID 
BR 210$ ‘BRANCH TO 210$ IF NO ERROR 
ERROR sRETURN HERE IF ERROR 
BR 250$ 
210$: 
;ENABLE DEBUG CLOCK AND LOAD DATA COMMAND 
#DMD ! MUR ' MOC ! DBEN, RMMR1 (RO) 
#0,RMER1 (RO) ;LOAD RMER1 
#0, RMER2 (RO) ;LOAD RMER2 
#0,RMDA(RO) ;LOAD RMDA 


#0,RMDC (RO) LOAD RMDC 


A odd off oft 200 ctl ofl ott oil ofl oft oti ott oth all off off off oth oll abl oil ofl oll oll ih li al alt alt a ALi all alla lla LA al AL 


052012 


a ott 8 


052012 000024 
052020 012760 000014 
052026 012760 000042 
052034 012760 000006 
052042 012760 000034 


;LOAD RMMAR1 


sf o8f 88 18 


of afd ot 


1 
1 
1 
; 
: 
1 
1 
1 
1 
1 
1 
1 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
. 
; 
* 
1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1; 
1: 
1: 
1 
1 
1. 
1: 
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CZRMJCO RMO3/2 DSKLS PRT 1 MACY11 30A(1052) 21-AUG-78 09: 22 PAGE 255 SEQ 0255 
CZRMJC.P11 _21=AUG-78 09:19 1116 DATA COMMAND T (1) 
12593 , 
12594 052050 012760 000071 000000 MOV #RD'!GO,RMCS1(RO) LOAD RMCS1 
12595 sMOVE SEQUENCER TO TEST FOR RUN AND GO At LOCATION 130 (5 CLOCKS) 
12596 052056 012702 000005 MOV #5,R2 
12597 052062 220$: 
12599 052062 012760 141401 000024 MOV ADMD !MUR ‘MOC ! DBEN! DBCK, RMMR1 (RO) :LOAD RMMR1 
12601 052070 012760 041401 000024 MOV ADMD !MUR ! MOC ! DBEN, RMMR1 (RO) ;LOAD RMMR1 
12602 052076 005302 DEC R2 
12603 052100 001370 BNE 2208 
ieee VERIFY RUN AND GO IS SET 
12606 052102 016037 000024 001142 MOV RMMR1 (RO) , SBDDAT : STORE RMMR1 AT S$BDDAT 
12607 052110 042737 137777 001142 BIC #°CRG, SBDDAT 
12608 052116 001012 BNE 2308 
12609 052120 012737 040000 001140 MOV #RG, SGDDAT 
12610 052126 010037 001136 MOV RO, $8DADR 
12611 052132 062737 000024 001136 ADD #RMMR1 , SBDADR 
12612 052140 104275 ERROR 275 ZRUN AND GO NOT SET 
12613 052142 000435 BR 2508 
12614 052144 230S: 
12615 :VERIFY THAT CYLINDER TAG COMES UP IN ONE CLOCK CYCLE 
12616 052144 012702 000001 MOV #1,R2 
12617 052150 2408: 
12619 052150 012760 141401 000024 MOV #DMD !MUR ! MOC ! DBEN! DBCK ,RMMR1 (RO) :LOAD RMMR1 
12621 052156 012760 041401 000024 MOV ADMD ! MUR ! MOC ! DBEN, RMMR1 (RO) :LOAD RMMR1 
12622 052164 005302 DEC R2 
12623 052166 001370 BNE 240$ ; me 
12625 052170 016037 000040 001142 MOV RMMR2 (RO) , SBDDAT :STORE RMMR2 AT $BDDAT 
12626 : BIC #ROA'ROB! TAG, ee 
12627 E FOLLOWING LINE IS CHANGED FOR HW. 
12628 052176 042737 162000 001142 BIC #RQA!ROB!TAG!CH, iSDDAT ;HARDWARE CHANG 
12629 'CH AND CC WILL SET AT THE SAME TIME 
12630 052204 012737 004000 001140 MOV ACC, $GDDAT 
12631 052212 023737 001140 001142 CMP SGDDAT , $BDDAT 
12632 052220 001406 BEQ 250$ 
12633 052222 010037 001136 MOV RO, $BDADR 
12634 052226 062737 000040 001136 ADD ARMMR2 , SBDADR 
12635 052234 104276 ERROR 276 sCYLINDER TAG NOT SET DURING DATA 
12637 052236 012737 052250 001124 250%: MOV #260$,$LPERR | ;: CHANGE LOOP ON ERROR ADDRESS 
12639 LEAR REE REE ERR EEE REE EEREEEEREEEREEKKEEEREEREERREE EK 
12640 ‘VERIFY DATA COMMAND ABORTS AT COMMAND SEQUENCER LOCATIONS 144, 145 
12641 052244 012702 000144 MOV #144,R2 s INITIALIZE TEST LOCATION 
12642 052250 2608S: 
12643 :SET VOLUME VALID USING SUBROUTINE 
12644 052250 004737 060556 JSR PC. SETVV :GO SET VOLUME VALID 
12645 052254 000402 BR 270$ ‘BRANCH TO 270$ IF NO ERROR 
12646 052256 104000 ERROR *RETURN HERE IF ERROR 
12647 052260 000553 BR 320$ 


12648 052262 2708: 





an 
NN 
DD 


—~ a P F  PPO OP O O S 
fast oft ott oft oft oth od off ofl otf ol ofl odd ott atl all ofl ofl otha all of lt ot alt oll ol tl LA Ll al LAAN a Ld (AL A Ld AAAI AAA 
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CZRMJCO RMO3/2 DSKLS PRT 1 MACY11 1 eal Bay mt 09: 25 PAGE 256 SEQ 0256 
CZRMJC.P11 21-AUG-78 09:19 7116 A COMMAND TESTS (1) 


;ENABLE DEBUG CLOCK AND LOAD DATA COMMAND 
052262 012760 041401 ADMD ! MUR ! MOC ! DBEN , RMMR1 (RO) ;LOAD RMMR1 
052270 012760 000000 #0 ,RMER1 (RO) LOAD RMER1 
052276 012760 000000 #0 ,RMER2 (RO) LOAD RMER2 
052304 012760 000000 #0 ,RMDA(RO) LOAD RMDA 
052312 012760 000000 #0,,RMDC (RO) LOAD RMDC 


052320 012760 000071 MOV wy RMCS1(RO) ;LOAD RMCS1 

;WAIT FOR RUN AND GO TO SET 
052326 012737 000310 MOV #200. ,WATCH SET WATCHDOG TIMER VALUE 
0523 004777 127166 2808 PC ,aCLOCk START THE CLOCK 


016037 000024 RMMR1 (RO) , SBDDAT STORE RMMR1 AT $BDDAT 
2737 137777 —— 


001524 WATCH 


260$ 
127140 PC ,aSTOP :STOP THE CLOCK 
040000 #RG, SGDDAT 
001136 RO, $BDADR 
000024 #RMMR1 , SBDADR 
275 RUN AND GO NOT SET 


320$ 
290$: 
052414 127110 JSR STOP ;STOP THE CLOCK 
sMOVE oe SEQUENCER TO ABORT TEST (LOCATION 144 OR 145) 
052420 012703 000006 #6,R3 ;SETUP CLOCK COUNT 
022702 000144 #144,R2 
001402 300$ 
012703 000007 #7 ,R3 


012760 141401 #DMD ! MUR ! MOC ! DBEN! DBCK , RMMR1 (RO) LOAD RMMR1 
052444 012760 041401 ORR a Ae ee ;LOAD RMMR1 


052452 005303 DEC 
052454 001370 


BNE 300$ 
SET DRIVE FAULT TO FORCE ABORT CONDITION 
052456 012760 041501 MOV #DMD !MUR!MOC!DBEN!MDF ,RMMR1(RO) ;LOAD RMMR1 


CLOCK SEQUENCER THROUGH ITS TEST FOR ABORT (1 CLOCK) 

052464 012703 000001 MOV #1,R3 

052470 305$: 

052470 012760 141501 000024 MOV #DMD ! MUR ! MOC ! DBEN! MDF ! DBCK ,RMMR1 (RO) LOAD RMMR1 
eee 012760 041501 000024 MOV tate ial -RMARI(RO) ;LOAD RMMR1 


2504 005303 DEC R 
052506 001370 BNE 305$ ; ISSUE 2 CLOCKS 


me me ee me ek el ek ee ek ed ed ed a od od ot oo 0 0 0 0 4 SO OS SO OI OS 
(AIL UU UN AAA AAA AAA AAA A AAA 





CZRMJCO RMO3/2 DSKLS PRT 1 a Sa Big at 09: 2 or 257 SEQ 0257 
CZRMJC.P11 21-AUG-78 09:19 116 COMMAND TEST 


ABORT EBL SHOULD NOW BE ACTIVE = USE THE MAINTENANCE REGISTER TO 
SFORC E a A CLOCKS AND VERIFY THAT EBL SETS WITHIN 16 BIT CLOCKS 
052510 012702 000020 #16. ,R2 MAXIMUM NUMBER OF BIT CLOCKS 
052514 306$: 
052514 012760 045501 #DMD ! MUR ! MOC ! DBEN! MDF !MCLK ,RMMR1 (RO) LOAD RMMR1 
052522 012760 041501 #DMD ! MUR! MOC! DBEN! MDF ,RMMR1(RO) ;LOAD RMMR1 
dey tA 000024 RMMR1 (RO) , SBDDAT STORE RMMR1 AT SBDDAT 


157777 #*CEBL , SBDDAT 
310$ BRANCH IF EBL IS SET 


fala) 
NN 
22 


306$ CONTINUE BIT CLOCKS IF COUNT NOT 0 
#EBL , SGDDAT 

RO, $BDADR 

#RMMR 1 , SBDADR 

271 ;SEQ DID NOT ABORT AT DATA SEEK 
#144 ,R2 

3208 

#145,R2 

260$ 


052610 012737 052622 320$: #330$,SLPERR ; CHANGE LOOP ON ERROR ADDRESS 


$3 RRR EERE EERE EEE EEEEEKEKEKEKKEEEEEEEKEEEEEEREEEEEERKEKEEREKEEEKEEKK 


;VERIFY HEAD TAG DURING DATA C 


OMMAND 
052616 012702 000400 MOV #400,R2 INITIALIZE TRACK ADDRESS 


052622 330$: 
SET VOLUME VALID 8 SUBROUT INE 
052622 060556 JSR PC,SETVV :GO SET se VALID 
BR 340$ BRANCH TO 340$ IF NO ERROR 
ERROR ;RETURN HERE IF ERROR 
BR 400$ 


DEBUG CLOCK AND LOAD DATA COMMAND 

041401 ADMD ! MUR ! MOC ! DBEN,,RMMR1 (RO) ;LOAD RMMR1 

000000 #0 ,RMER1 (RO) ;LOAD RMER1 
052650 012760 000000 #0 ,RMER2 (RO) ;LOAD RMER2 
052656 010260 000006 R2,RMDA(RO) LOAD RMDA 
052662 012760 000000 #0,,RMDC (RO) LOAD RMDC 
052670 012760 000071 MOV #RD!GO,RMCS1(RO) ;LOAD RMCS1 

;WAIT FOR RUN AND GO TO SET 

052676 012737 000310 MOV #200. ,WATCH SET WATCHDOG TIMER VALUE 
gage 004777 126616 3508 JSR PC,aCLOCK SSTART THE CLOCK 


052710 016037 000024 MOV RMMR1 (RO) , SBDDAT STORE RMMR1 AT SBDDAT 
052716 042737 137777 BIC #*CRG,$BDDAT 


— 
(Lad Lal Lad Lad Cal Cad Cad Cad Cad Lad Lad Lad Cad IN Cl NO AOA AAA AAA AAA AA AA 


me meh el me eek ee ee ee we ed ed ed ed ad a od ot 0 0 0 OO OV HO OO 
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052724 


052770 
052774 


052774 


053122 
053124 
053132 
053140 


053144 
053146 
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012703 
012760 
012760 
005303 
001370 


012760 
012760 


012705 


012703 


016037 


012760 
012760 


001524 
126570 
040000 


001136 
000024 


126540 
000021 


141401 
041401 


041001 
041401 


000004 
141401 
041401 


053212 


177770 
001140 
001140 
141401 
041401 


000002 


MACY11 30A( _. 


001140 
001136 


000024 
000024 


000024 
000024 


000024 
000024 


001142 


000024 
000024 


4 
1 43] -AUG.78 09: 22 PAGE 258 SEQ 0258 
116 ATA COMMAND TESTS (1) 
BNE 360$ 
TST WATCH 
BNE 350$ 
JSR PC, aSTOP :STOP THE CLOCK 
MOV #RG, $GDDAT 
MOV RO, $BDADR 
ADD 1,$BDADR 
ERROR 275 :RUN AND GO NOT SET 
400$ 
360$: 
JSR PC, aSTOP :STOP THE CLOCK 
STEP COMMAND SEQUENCER TO HEAD SEQUENCE, LOCATION 156 (17 CLOCKS) 
370$: sig 
MOV #DMD !MUR ! MOC ! DBEN! DBCK ,RMMR1 (RO) :LOAD RMMR1 
MOV #DMD !MUR MOC !DBEN, RMMR (RO) :LOAD RMMR1 


BNE 
;DROP AND RAISE 


370$ 
ON CYLINDER TO RESET ON LATCH 


MOV #DMD 'MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
MOV #DMD !MUR ! MOC ! DBEN, RMMR1 (RO) ;LOAD RMMR1 
; MOV #450$,R3 : INITIALIZE TABLE POINTER 
3 THE FOLLOWING 6 LINES 
“FOR HW CHANGE: THE CH AND CC 
WILL SET AT THE SAME TIME 
[ON THE SECOND CLOCK SEQ 
MOV #4,R5 “STEP OVER THE FIRST 4 LOC. 
101$: MOV #141401 ,RMMR1 (RO) 
MOV “ee: *RMMR1 (RO) :CLOCK IT THROUGH 
BNE 101$ ;LOOP, UNTIL DONE 
MOV #450$+10,R3 
gVERIFY TAG BUS ACCORDING TO TABLE AND TRACK ADDRESS IN R2 
MOV RMMR2 (RO), SBDDAT :STORE RMMR2 AT $BDDAT 
BIC #ROA!ROB! TST, $BDDAT 
MOV (R3) , $GDDAT 
MOV R2.Ra :GENERATE EXPECTED TAG BUS 
BIC #°C7_RG 
BIS R4, $GDDAT 
CMP $GDDAT , $BDDAT 
BNE 390$ 
MOV #DMD !MUR ! MOC ! DBEN! DBCK ,.RMMR1 (RO) :LOAD RMMR1 
MOV #DMD !MUR !MOC ! DBEN, RMMR1 (RO) :LOAD RMMR1 
;ADVANCE TO NEXT TABLE ENTRY 
ADD #2,R3 
TST (R3) 
BMI 380$ 





fata) 
NN 
22 


WWW 


WNWINWA 


ee ee ee ee eke 


WANNA 


RH 2 3 2 BO BB BS 
LWIA A at A ds a dd ds A A A A 
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053150 000743 
053152 


053152 006302 
020227 
101007 
000617 
010037 
0531 7 
053176 
053200 


053220 
053222 


053276 
053300 177777 
053302 


4 
MACY11 7. Bi am. if 22 PAGE 259 
T116 A COMMAND T (1) 


3808 BR 375$ 
: SHIFT i. —" ADDRESS-EXIT LOOP IF DONE 
CMP R2,42000 
BHI 400$ 
BR 330$ 
390$: 
ERROR ON TAG BUS goed HEAD SEQUENCE 
MOV RO, $BDADR 


#RMMR2 , SBDADR 
276 ; INCORRECT TAG BUS 


500$ ; JUMP OVER TABLE 


BUS DURING HEAD SEQUENCE 
D CH 


CH 
CH! TAG 


; TABLE TERMINATED HERE 


END OF TABLE 
END OF TEST 


LAR RERRREEEEEEEE EE E ERE EE EKER ERE EERE 


SATEST 117 DATA COMMAND TESTS (2) 


SEQ 0259 


3! 
b | 
3 
3 
3 


A tt I I 


WANNA 
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BIVVVVYIIIBY 
SDONANRWY=S 


ae 
BBBIISS 
NOUSWN— 


053302 
053304 


053312 


053372 


053372 
053400 
053406 


053524 


053530 
053534 


000004 
012737 


012737 
012706 


013700 
013701 


004737 
000402 


104000 
000514 


012760 
012760 
012760 
012760 
012760 
012760 
012737 


012702 
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000071 


000310 
126056 


000024 
137777 
001524 
126030 
040000 


001136 
000024 


126000 
000023 


5 
— 260 SEQ 0260 


8 
MACY11 30A(1052) 21-AUG-78 09:22 
T7117 DA S (2 


TA COMMAND TEST 


FDIS ISOS ISIIE TOISISI IOI OT OT T TT T TTT 
TST117: SCOPE 
001226 j MOV #117, $TESIN 33SET TEST NUMBER IN APT MAIL BOX 


#20. ,SICNT 320 ITERATIONS 

#1 , SERMAX ONE ERROR ALLOWED 

#T117,$LPADR ;LOAD LOOP ON TEST ADDRESS 
001124 #T117,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


T7117: 
#STACK,SP ;LOAD THE STACK POINTER 
SBASE ,RO ;RO = UNIBUS ADDRESS OF UUT 
TSTQUE ,R1 zR1 = POINTER TO DEVICE 


FLARE EER ERE REE EERE REE EKER EERE ERE EEK 
‘VERIFY OPI SETS IF ON CYLINDER LATCH DOESNT RESET 
‘SET VOLUME VALID USING SUBROUTINE 
JSR PC,SETVV :GO SET VOLUME VALID 
BR 10$ “BRANCH TO 10$ IF NO ERROR 
ERROR ‘RETURN HERE IF ERROR 
ats BR 60$ 
:ENABLE DEBUG CLOCK AND LOAD DATA COMMAND DURING CYLINDER SEQUENCE 
#DMD !MUR ! MOC ! DBEN,RMMR1 (RO) ;LOAD RMMR1 
#0,RMER1(RO) LOAD RMER1 
#O,RMER2(RO) LOAD RMER2 
#0,RMDA(RO) ;LOAD RMDA 
#0,.RMDC (RO) ;LOAD RMDC 
MOV #RD!GO,RMCS1 (RO) ;LOAD RMCS1 
;WAIT FOR RUN AND GO TO SET 
MOV #200. ,WATCH :SET WATCHDOG TIMER VALUE 
a PC ,acLOCk ‘START THE CLOCK 


RMMR1 (RO) , SBDDAT STORE RMMR1 AT SBDDAT 
SBDDAT 


;STOP THE CLOCK 


;RUN AND GO DIDNT SET 


30$: 
JSR PC,aSTOP ;STOP THE CLOCK 
sSTEP —— SEQUENCER AND VERIFY OPI SETS (19 CLOCKS) 


40$: 2 
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12929 
13931 
12932 053542 piers 041401 000024 MOV Samanta dha ;LOAD RMMR1 


12933 053550 005 2 
12934 053552 BN 40$ 


12935 
12936 053554 000014 001142 RMER1 (RO), — STORE RMER1 AT SBDDAT 
12937 0535 157777 001142 #*COPI ,$8DD 
12938 1011 50$ ;BRANCH IF OPI SET 
12939 0000 001140 #OPE , $GDDAT 
12940 3600 010037 MOV RO, SBDADR 
12941 3604 000014 001136 #RMER1 , SBDADR 
77 OPI NOT SET BY ON LATCH SET 


2 
001124 50S: #60$,$LPERR [CHANGE LOOP ON ERROR ADDRESS 
ererirtitetitiitt ttt ttt ititittttitititiit iii ttt t tet 
iVERIFY DATA COMMAND ABORTS DURING SEEK WAIT LOOP 
:SET VOLUME VALID USING SUBROUTINE 
JSR PC,SETVV :G0 SET VOLUME VALID 
BR 70$ ‘BRANCH TO 70$ IF NO ERROR 
ERROR RETURN HERE IF ERROR 
BR 140$ 
DEBUG CLOCK AND LOAD DATA COMMAND 
#DMD ! MUR ! MOC ! DBEN,RMMR1 (RO) :LOAD RMMR1 
#0,RMER1(RO)  ; LOAD RMER1 
012760 #O0,RMER2(RO) LOAD RMER2 
012760 #0,RMDC (RO) :LOAD RMDC 
012760 000000 #0,.RMDA(RO) ;LOAD RMDA 
012760 000071 MOV #RD'GO,RMCS1 (RO) :LOAD RMCS1 
;WAIT FOR RUN & GO TO SET 
012737 000310 MOV #200. ,WATCH :SET WATCHDOG TIMER VALUE 
055706 004777 125614 se PC ,aCLOCk “START THE CLOCK 


053712 000024 MOV RMMR1 (RO) , SBDDAT STORE RMMR1 AT SBDDAT 
0537. 137777 acca, 


001524 

80$ 
125566 PC,aSTOP STOP THE CLOCK 
040000 


001136 
000024 


053534 012760 141401 000024 #DMD ! MUR ! MOC ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 


2 


OY 


— 
3 
wi 
wi 


2956 
12957 
12958 
12959 


3 


Ree cre 


VIBBo 
S385 


RUN AND GO DIDNT SET 


90$: 
125536 JSR PC, aSTOP :STOP THE CLOCK 
sSTEP COMMAND SEQUENCER TO ON LATCH TEST AT LOCATION 156 (17 CLOCKS) 


+ 
kk kk kk ke kk kk ed dd ed do od td od ot od ot ot ot oo I OO OS SS 
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PEEEECRReee tices Arar ararct i 


me ee eh ee me eh a ee ed ed ed wd td 2 


13024 


053772 
053776 


053776 
054004 
054012 
054014 


054016 


054024 
054030 


054050 
054054 


054054 
054062 
054070 
054072 
054074 


054102 
054106 


054106 
054114 


054122 
054124 


054126 
054132 


054162 
054164 
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012702 


012760 
012702 


012702 


012760 


012760 


000021 


141401 
041401 


041001 
000037 


141001 
041001 
000006 


141001 
041001 


041201 
000002 


141201 
041201 


000020 


045501 
041501 


000024 
157777 
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000024 
000024 


000024 


000024 
000024 


000024 
000024 


000024 


000024 
000024 


000024 
000024 


001142 
001142 


COMMAND TESTS (2) 
MOV #17. ,R2 


100$: 
MOV #DMD 'MUR ' MOC ! DBEN! DBCK , RMMR1 (RO) ;LOAD RMMR1 
ae ee 'DBEN, RMMAR1 (RO) ;LOAD RMMR1 


BNE 100$ 
;DROP ON CYLINDER TO RESET LATCH 


#DMD !MUR! DBEN,RMMR1(RO) ;LOAD RMMR1 
sMOVE conan SEQUENCER TO SEEK WATI LOOP (31 CLOCKS) 


ee 


1108: 
MOV #DMD !MUR!DBEN!DBCK,RMMR1(RO) — ; LOAD _RMMR1 
MOV #DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
DEC R2 
BNE 110$ 
STEP THROUGH SEEK WAIT LOOP (6 CLOCKS) 2 TIMES 
120$: sie 
MOV #DMD'MUR!DBEN!DBCK,RMMR1(RO) LOAD _RMMR1 
MOV #DMD ! MUR! DBEN RAR (RO) ;LOAD RMMR1 
BNE 120$ 
;SET SEEK INCOMPLETE ERROR TO CAUSE ABORT 
MOV #DMD ! MUR ! DBEN!MSER, RMMR1 (RO) LOAD RMMR1 
:CLOCK THE SEQUENCER THROUGH iTS TEST FOR ABORT (2 CLOCKS) 
130$: 
MOV #DMD ! MUR ! DBEN! MSER ! DBCK .RMMR1 (RO) :LOAD RMMR1 
MOV #DMD MUR! DBEN!MSER RMR (RO) LOAD RMMR1 
BNE 1308 . 


;ABORT EBL SHOULD NOW BE ACTIVE - USE THE MAINTENANCE REGISTER TO 
FORCE BIT CLOCKS AND VERIFY THAT EBL SETS WITHIN 16 BIT CLOCKS 
1358: MOV 16. ,R2 MAXIMUM NUMBER OF BIT CLOCKS 

MOV #DMD !MUR ! MOC ! DBEN! MDF !MCLK ,RMMR1 (RO) LOAD RMMR1 

MOV #DMD !MUR! MOC! DBEN! MDF ,RMMR1(RO) ;LOAD RMMR1 

MOV RMMR1 (RO), saneas STORE RMMR1 AT SBDDAT 

BIC 7S a L.SBDDA 


DEC R2 


C2 
C2 
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21-A 
DATA COMMAND T 


135$ CONTINUE BIT CLOCKS IF COUNT NOT 0 
001140 ig — 


0, $BDAD 

001136 #RMMAR1 , SBDADR 
04300 E 3 ;EBL NOT SET DUE TO ABORT 

054212 054220 001124 140$: #150$ ,$LPERR ; CHANGE LOOP ON ERROR ADDRESS 


DASE ERIS IID IIIS ISI III UR Rt nth titth 
VERIFY DATA COMMAND ABORTS DURING OFFSET IF ON CYLINDER LATCH 
os ld RESET 


SET VOLUME VALID USING SUBROUTINE 
JSR PC ,SETVV :GO SET VOLUME VALID 
BR ;BRANCH TO 160$ IF NO ERROR 
ERROR ;RETURN HERE IF ERROR 
BR 220$ 


160$: 
;LOAD TRACK,SETCOR,CYLINDER ADDRESS 
054232 MOV #0, RMDA(RO) ;LOAD RMDA 
054240 MOV #0 ,.RMDC (RO) sLOAD RMDC 
;SET OFFSET MODE USING SUBROUTINE 
054246 JSR PC, SETOM :GO SET OFFSET MODE 
BR 170$ ;BRANCH TO 170$ IF NO ERROR 
ERROR ;RETURN HERE IF ERROR 
BR 220$ 
170$: 
sENABLE DEBUG CLOCK AND LOAD DATA COMMAND 
012760 ADMD ! MUR ' MOC ! DBEN, RMMR1 (RO) ;LOAD RMMR1 
012760 #0,RMER1(RO) ;LOAD RMER1 
012760 #0, RMER2 (RO) ;LOAD RMER2 
012760 000071 wee eT eee ;LOAD RMCS1 


MOV 
;WAIT FOR RUN AND GO TO SE 
gee 000310 MOV #200. ,WATCH SET WATCHDOG TIMER VALUE 


125204 PC,aCLOCK :START THE CLOCK 
180$: 


054220 


PuNeNIM SSR EO REeS 


Ww 


054232 


wanes 


uw 
-—OO0On 


ee 


SBESRERER 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


S 


EERERE SESE 


5 


000024 RMMR1 (RO), SBDDAT STORE RMMR1 AT SBDDAT 
137777 #*CRG,$BDDAT 
BNE 190$ 


001524 
125156 ;STOP THE CLOCK 
040000 


001140 
000024 


5 


;RUN AND GO NOT SET 


190$: 
054376 125126 JSR PC,a@STOP :STOP THE CLOCK 
;STEP COMMAND SEQUENCER TO ON LATCH TEST AT LOCATION 156 (17 CLOCKS) 


cece ccs 
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— os os at SS er es SS os os So os Ss SS 
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3 
3 
3 
3 
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3 
3 
3 
3 
3 
3 
3 
3 
3 
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— ss 
RAR 
uo 


WWW 
—_— 3 
BRAK 
WRW 


1 
1 
; 
1 
1 
1 
; 
1 
1 
j 
1 
1 
1 
4 
; 
4 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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054402 
054406 


054406 
054414 


054422 
054424 


054426 
054434 


054442 
054446 


054446 
054454 


054550 


054550 
054556 


054574 
054576 
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012702 


012760 
012760 


005302 
001370 


012760 
012760 
012702 


012760 
012760 


005302 
001370 


016037 
27 


012760 
012760 


000021 


141401 
041401 


041001 
+041401 
000047 


141401 
041401 


000014 
157777 
020000 
001136 
000014 


054534 


060556 


055154 


000000 
000000 


5 
MACY11 7 _—. ohh Coeme 09: 2b PAGE 264 


000024 
000024 


000024 
000024 


001142 
001142 


001140 
001136 
001124 


ATA COMMAND TESTS (2) 
MOV #17. ,R2 


MOV #DMD ! MUR ! MOC ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 


ore * aleteneipen: !DBEN, RMMR1 (RO) ;LOAD RMMR1 


BNE 200$ 
DROP ON deg TO RESET LATCH, SET ON CYLINDER TO PASS TEST 
SAT LOCATION 166 


MOV #DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 


MOV #DMD ! MUR ! DBEN! MOC ,RMMR1 (RO) ;LOAD RMMR1 
sMOVE — A AND EBL (39 CLOCKS) 


2108: ‘ 
MOV ADMD !MUR ! DBEN! MOC ! DBCK,RMMR1 (RO) ;LOAD RMMR1 
Mov #DMD !MUR !DBEN! MOC . RMR (RO) ;LOAD RMMR1 
BNE 210$ 
:VERIFY OPI IS SET 
RMER1(RO), SBDDAT 
#*COPI,$SBDDA 
220$ 
#OP1,$GDDAT 
RO, $BDADR 


#RMER1, SBDADR 
E 277 :0PI NOT SET DURING OFFSET 
2208: #230$,$LPERR | :CHANGE LOOP ON ERROR ADDRESS 


22 RARER REE AREEEEEEREEREKEKEKREREEEEKEEKEEEKEERKEREEEEEEEKEEEKE 


VERIFY DATA COMMAND ABORTS DURING OFFSET WAIT LOOP 


STORE RMER1 AT SBDDAT 


230$: 

;SET VOLUME VALID USING SUBROUTINE 
JSR PC,SETVV ;GO SET VOLUME VALID 
BR 2408 :BRANCH TO 240$ IF NO ERROR 
ERROR sRETURN HERE IF ERROR 

JMP 310$ 


2408: 
:LOAD SECTOR, TRACK AND CYLINDER ADDRESS 


MOV #0 ,RMDA(RO) LOAD RMDA 


MOV #0 ,RMDC (RO) ;LOAD RMDC 
;SET OFFSET MODE USING SUBROUTINE 
JSR PC,SETOM :GO SET OFFSET MODE 


BR 245$ SBRANCH TO 245$ IF NO ERROR 
RROR RETURN HERE IF ERROR 


BR 310$ 
isons DEBUG CLOCK AND LOAD DATA COMMAND 


SEQ 0264 


oe afd 284 244 28 


— 4 YS YY YD 
a Te A odd o08 


a6 ota 


me ek ek ed ed ed ed a ad a ad ot ot a ot oo oO OO Ot SS 
2 S ee ee ee eee ee ee ee ee ee ee ee ee ee Oe OR ee Oe A i ee 
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13153 


Ww 


ee ee le el Oe ee ee ek ek te ed etd ed ad ad td ad = 


054576 012760 041401 #DMD ! MUR ! MOC ! DBEN,,RMMR1 (RO) ;LOAD RMMR1 
054604 012760 000900 #0,RMER1 (RO) ;LOAD RMER1 
054612 012760 000000 #0,,RMER2 (RO) ;LOAD RMER2 
054620 012760 000071 MOV #RD!GO,RMCS1(RO) ;LOAD RMCS1 
WAIT FOR RUN AND GO TO SET 
054626 012737 000310 MOV #200. ,WATCH SET WATCHDOG TIMER VALUE 
004777 124666 2508 PC ,@CLOCK START THE CLOCK 


016037 000024 RMMR1 (RO), SBDDAT STORE RMMR1 AT S$BDDAT 
2737 = 137777 ° AT 


001524 
124640 P STOP THE CLOCK 
040000 


001136 
000024 


Walealealealealeal 
OONOUE 


ALARLS 


;RUN AND GO NOT SET 


260$: 
054714 124610 JSR PC,aSTOP STOP THE CLOCK 
;STEP SEQUENCER TO LOCATION 156 rab CLOCKS) 
054720 012702 000021 MOV #17.,R2 
054724 270$: 


054724 012760 141401 000024 MOV ADMD ! MUR ! MOC ! DBEN! DBCK , RMMR1 (RO) ;LOAD RMMR1 
054732 012760 041401 000024 MOV - aaabectsasctasnt ttaan LOAD RMMR1 


054740 DEC 
054742 


add off oOf off odd odd off odd oft odd odd off off otk fd ofl oft off oft of off off of off ofl oft oth al 


eee ed ed ed ed od od a od oh od ot oo ot ot I I = 


aoa uae 


BNE 270$ 
;DROP ON CYLINDER TO RESET LATCH, SET ON CYLINDER TO PASS TEST 
zAT LOCATION 166 


054744 012760 041001 000024 MOV #DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 


054752 012760 041401 000024 MOV #DMD ! MUR ! MOC ! DBEN, RMMR1 (RO) ;LOAD RMMR1 
;MOVE SEQUENCER TO LOCATION 174 (37 CLOCKS) 
054760 012702 000045 MOV #37. ,R2 


054764 280$: 

054764 012760 141401 000024 MOV #DMD ! MUR! MOC ! DBEN! DBCK , RMMR1 (RO) ;LOAD RMMR1 
054772 012760 041401 000024 MOV #DMD ! MUR ! MOC ! DBEN,, RMMR1 (RO) ;LOAD RMMR1 

055000 005302 R2 


DEC 
055002 001370 BNE 2808 
;DROP ON CYLINDER TO RESET LATCH, LEAVE ON CYLINDER RESET 


055004 012760 000024 MOV #DMD !MUR! DBEN,RMMR1(RO) ;LOAD RMMR1 
;STEP SEQUENCER THROUGH OFFSET WAIT LOOP TWICE (7 CLOCKS) 
055012 012702 MOV #7. ,R2 


055016 290$: 


WWNWWAWWWW WWW WNW WWW WW WNW WW WANWAWWNWWIANWAANWWNWNWWAAWNAAWA 
SELKGRASLSSELFARRATALSYaVRARAVASSELE 


88 


1 
1 
1 
; 
; 
1 
1 
1 
1 
1 
1 
: 
1 
1 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
13 


i 3 SS BS Ss S SS Ss Ss ss Ss Ss ' SH MS 2 4 wm OHO 
a os 24 104 of 108 a8 188 06 08 88 24 26 28 04 Wa8 a84 144 a4 184 108 288 
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= 
Ww 
Sg 


— od ot ot 2 


055016 012760 141001 000024 MOV #DMD ! MUR ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 


055024 012760 041901 000024 we hdc sntntiiaca ;LOAD RMMR1 


BNE 2908 
SET DRIVE FAULT TO CAUSE ABORT CONDITION 


012760 041101 MOV ADMD ! MUR! DBEN! MDF ,RMMR1 (RO) ;LOAD RMMR1 
STEP SEQUENCER THROUGH ITS TEST FOR ABORT (2 CLOCKS) 
012702 000002 MOV #2,R2 


055050 300$: 
055050 012760 141101 000024 MOV ADMD ! MUR ! DBEN! MDF ! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
055056 012760 041101 000024 ore  Pahtbear agenesis -RMMR1 (RO) ;LOAD RMMR1 
BNE 300$ 
;ABORT EBL SHOULD NOW BE ACTIVE = USE THE MAINTENANCE REGISTER TO 
FORCE BIT CLOCKS AND VERIFY THAT EBL SETS WITHIN 16 BIT CLOCKS 
055070 012702 000020 MOV #16. .R2 ;MAXIMUM NUMBER OF BIT CLOCKS 
055074 305$: 
055074 012760 045501 000024 ADMD ! MUR! MOC ! DBEN! MDF !MCLK ,RMMR1 (RO) ;LOAD RMMR1 
055102 012760 041501 000024 ADMD !MUR!MOC!DBEN!MDF ,RMMR1(RO) ;LOAD RMMR1 
055110 000024 001142 RMMR1 (RO) , SBDDAT STORE RMMR1 AT $BDDAT 
055116 157777 001142 #*CEBL , SBDDAT 
055124 310$ 
055126 R2 
305$ 
020000 001140 #EBL , S$GDDAT 
001136 RO, $BDADR 
000024 001136 #RMMR 1, SBDADR 
055152 271 ;EBL NOT SET DUE TO OFFSET WAIT ABORT 
055154 055162 001124 3108: #320$,$LPERR ; CHANGE LOOP ON ERROR ADDRESS 


LL RRR EEE EERE REE EEEKEEKEKEREEREEREREEEERERE REE EE 


VERIFY THAT DATA COMMAND ABORTS DURING SECTOR WAIT LOOP AT LOCATION 179 


Atathtithtt title 
SCOONAUSWN HO 


ee ed nd od = 8 SS 
etch 
MN 
—_ 


Ww 
N 
N 
Nm 


CONTINUE BIT CLOCKS IF COUNT NOT 0 


055162 


ee ed od oh ood odd oe de od ed od odd od od ot od ol dt odd ol odd oll oll oth al od ol ll lb all ol ll ll ll A al ll al LA LA AA 


320$: 
SET VOLUME VALID USING SUBROUTINE 
055162 060556 JSR PC,SETVV :GO SET VOLUME VALID 
BR 330$ BRANCH TO 330$ IF NO ERROR 
ERROR ;RETURN HERE IF ERROR 
055620 JMP 420$ 


330$: 
;ENABLE DEBUG CLOCK AND LOAD DATA COMMAND 


at ott 


vo 


055176 


055176 012760 041401 000024 MOV #DMD ! MUR ! MOC ! DBEN,RMMR1 (RO) ;LOAD RMMR1 
055204 012760 000000 000014 MOV #0,,RMER1 (RO) ;LOAD RMER1 


ee ed ed a ed td a ot od ot ot Pt I OO OI OS eel ee ek ee ed ed ed ad ad ot ot ot ot I a tI I 
‘ oa .0k 208s abe al 
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055212 012760 000000 000042 #0,RMER2 (RO) ;LOAD RMER2 
055220 012760 000000 000006 #0,RMDA(RO) LOAD RMDA 
055226 012760 000000 000034 #0,,RMDC (RO) ;LOAD RMDC 


055234 012760 000071 MOV #RD!GO,RMCS1(RO) ;LOAD RMCS1 

WAIT FOR RUN AND GO TO SET 
055242 012737 000310 MOV #200. ,WATCH SET WATCHDOG TIMER VALUE 
PELE 004777 124252 3408 J PC,a@CLOCK SSTART THE CLOCK 


055254 016037 000024 MOV RMMR1 (RO) , SBDDAT STORE RMMR1 AT SBDDAT 
055262 ‘042737 137777 — 


001524 


340$ 
124224 STOP THE CLOCK 
040000 001140 
001136 
000024 001136 

RUN AND GO NOT SET 


350$: 
124174 JSR PC,aSTOP zSTOP THE CLOCK 
sSTEP SEQUENCER TO LOCATION 156 (17 CLOCKS) 
012702 000021 con MOV #17.,R2 


012760 141401 MOV ADMD !MUR ! MOC ! DBEN! DBCK , RMMR1 (RO) ;LOAD RMMR1 


012760 041401 m9! + Phctnareianninteesteer sie (RO) ;LOAD RMMR1 


BNE 360$ 
;DROP ON CYLINDER TO RESET LATCH, SET ON CYLINDER TO PASS TEST 
zAT LOCATION 166 


055360 012760 ©’1001 MOV #DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
;MOVE SEQUENCER TO SECTOR WAIT (34 CLOCKS) 
055366 012702 000042 MOV #34. ,R2 
055372 370$: 
055372 012760 141401 000024 MOV #DMD !MUR ! MOC ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
012760 041401 000024 MOV ADMD ! MUR ! MOC ! DBEN,RMMR1 (RO) ;LOAD RMAR1 
005302 R2 


DEC 
055410 001370 BNE 370$ 
STEP THROUGH SECTOR WAIT LOOP TWICE AND VERIFY SEARCH IS ENABLED 
;DURING THE LOOP (6 CLOCKS) 
055412 012702 000006 MOV #6. ,R2 
055416 380$: 


055416 012760 141401 MOV #DMD ! MUR ! MOC ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
055424 012760 041401 MOV #DMD ! MUR ! MOC ! DBEN,,RMMR1 (RO) ;LOAD RMMR1 


055356 


g 
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055432 000024 RMMR1 (RO) , SBDDAT STORE RMMR1 AT $BDDAT 
173777 coos - SBDDAT 


R2 
380$ 
BR 400$ 
001140 : ESRC, a 
RO, SBDAD 
001136 AD #RMMR 1, SEDADR 


301 ; SEARCH NOT ENABLED DURING DATA 
420$ 


400$: 
;SET DRIVE FAULT TO CAUSE ABORT CONDITION 


055502 012760 041501 000024 ADMD !MUR! MOC! DBEN!MDF ,RMMR1(RO) ;LOAD RMMR1 
STEP SEQUENCER THROUGH ITS TEST FOR ABORT (2 CLOCKS) 
055510 012702 000002 #2,R2 


055514 410$: 
055514 012760 141501 MOV #DMD !MUR ! MOC ! DBEN! MDF ! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
055522 041501 MOV ADMD !MUR!MOC!DBEN!MDF ,RMMR1(RO) ;LOAD RMMR1 
055530 DEC R2 
055532 BNE 410$ 
;ABORT EBL SHOULD NOW BE ACTIVE - USE THE MAINTENANCE REGISTER TO 
FORCE BIT CLOCKS AND VERIFY THAT EBL SETS WITHIN 16 BIT CLOCKS 
055534 012702 000020 MOV #16. .R2 ;MAXIMUM NUMBER OF BIT CLOCKS 
055540 415$: 
055540 012760 045501 ADMD !MUR ! MOC ! DBEN! MDF !MCLK ,RMMR1 (RO) ;LOAD RMMR1 


055546 041501 MOV #DMD !MUR!MOC!DBEN! MDF ,RMMR1(RO) ;LOAD RMMR1 
VERIFY IS SET 


055554 000024 RMMR1 (RO) , SBDDAT STORE RMMR1 AT $BDDAT 
055562 157777 #*CEBL , SBDDAT 
055570 420$ 


055572 


0555 
055502 


a ee ee ee ee ee ee ee TST! 
& SAWWNAAWNAAWWAIAAA WA 


CONTINUE BIT CLOCKS IF COUNT NOT 0 


415$ 
#EBL , $GDDAT 
RO, $BDADR 
A#RMMR 1 , SBDADR 
055616 271 NO ABORT AT SECTOR WAIT 


055620 420$: END OF TEST 


SRR EERE REE REE EEE REE EERE EERE EKER EERE RRR EEE 


‘*TEST 120 DATA COMMAND TESTS(3) 


5 RARER AER EERE REAR REE EEE REE REE ERA REE 


055620 151120: SCOPE 
055622 001226 MOV #120, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
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7120 DATA COMMAND T 
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#20. ,$:CNT 320 ITERATIONS 


#1 , SERMAX ; 
’ #T120,$LPADR ; 
1120 #T120,$LPERR ;LOAD LOOP ON ERROR ADDRESS 


STACK , SP ;LOAD THE STACK POINTER 
055666 SBASE ,RO ;RO = UNIBUS ADDRESS OF UUT 
055672 013701 MO TSTQUE ,R1 ;R1 = POINTER TO DEVICE 


SARA ERE ERE EERE REE REE REEEEERERERERERER EEE ERHRRERRKEEEE 


;VERIFY THE TAG BUS DURING DATA COMMAND 


RRR REERERAAREEEAEEEREEREREKEEREEEKEREKEREKKEERRRERKEREEEEEKEEERKEEEKEH 


“FIRST PART USES OFFSET FORWARD 


;LOAD TEST PARAMETERS IN REGISTER OUTPUT BUFFER 
055676 112737 MOVB #29. ,RMDAO SECTOR 29 
000004 : TRACK 4 
CYLINDER 822 
FORWARD OFFSET 
sREAD DATA 


0557 WORD COUNT 
055742 012737 WBUFFER,RMBAO ;BUFFER ADDRESS 


EXECUTE COMMAND AND VERIFY TAG BUS USING SUBROUTINE 
JSR PC,10$ 


LL RRR RARER EERE REAR A RE RERRRARERA RR EERRR ERR RE RR E EEE 
:SECOND PART USES OFFSET REVERSE 
;LOAD TEST PARAMETERS IN REGISTER OUTPUT BUFFER 
055754 112737 000000 MOVB #0,RMOFO REVERSE OFFSET 


EXECUTE COMMAND AND VERIFY TAG BUS USING SUBROUTINE 
055762 004737 055772 JSR PC,10$ 


055766 000137 057100 JMP 300$ 


RRA RAARAEAAAAEAERAEEAEERERERRAEEAREEAAEKEREEAEEEERAREEREERERREEREREEE 


* SUBROUTINE USED DURING TEST 


055750 004737 055772 


055772 


055772 060556 
055776 on BR 


056000 104000 ERROR 
056002 056716 JMP 160$ 
056006 208: 

;LOAD TRACK, SECTOR AND CYLINDER ADDRESS, LOAD OFFSET 
056006 001410 MOV RMDAO,RMDA(RO) ;LOAD RMDA 
056014 001436 MOV RMDCO,RMDC(RO) ;LOAD RMDC 
056022 001434 RMOFO,RMOF(RO) ;LOAD RMOF 


MOV P 
3SET OFFSET MODE USING SUBROUTINE 
056030 060706 JSR PC,SETOM 7GO SET OFFSET MODE 


ee ed eh ed ee ed ed ed 
WBDNAUSWN—O 


10$: 

;SET VOLUME VALID USING SUBROUTINE 
JSR PC,SETVV 3;GO SET VOLUME VALID 

;BRANCH TO 20$ IF NO ERROR 

;RETURN HERE IF ERROR 


WW MPN 
BAYSVRSVERRAVVS 


REEKEKELELELEREEREREREL 
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30$ BRANCH TO 30$ IF NO ERROR 
ERROR “RETURN HERE IF ERROR 
056716 a JMP 160$ 
[LOAD BUFFER ADDRESS AND WORD COUNT 
001404 MOV RMWCO,RMWC(RO) ;LOAD RMWC 


013760 001406 MOV RMBAO,RMBA(RO) ;LOAD RMBA 
ENABLE DEBUG CLOCK AND LOAD DATA COMMAND 


012760 041401 MOV #DMD ! MUR ! MOC ! DBEN,, RMMR1 (RO) ;LOAD RMMR1 
012760 000000 MOV #0 ,RMER1 (RO) LOAD RMER1 
012760 000000 MOV #0 ,RMER2 (RO) ;LOAD RMER2 
056102 013760 001402 MOV RMCS10,RMCS1(RO) ;LOAD RMCS1 
;WAIT FOR RUN AND GO TO SET 
056110 012737 000310 MOV #200. ,WATCH SET WATCHDOG TIMER VALUE 


123404 20s PC,aCLOCK ;START THE CLOCK 


PEFEERE 
ini 


Ww 
o 


FESESESEL 


¥ 
& 


000024 RMMR1 (RO) , SBDDAT STORE RMMR1 AT $BDDAT 
137777 gon - SBDDAT 


001524 
123356 PC ,a@STOP STOP THE CLOCK 
040000 


001136 
000024 


056716 
50$: 


123324 PC,a@STOP ;STOP THE CLOCK 
056720 #200$ ,R4 7R4 = TABLE POINTER 


STEP SEQUENCER TO HEAD SEQUENCE AT LOCATION 156 (17 CLOCKS) 
608 MOV 17. ,R5 3R5 = CLOCK COUNT 


016037 000040 RMMR2 (RO) , SBDDAT ;STORE RMMR2 AT SBDDAT 
016037 RMMR2 (RO). SBDDAT ‘IF CH AND CC SET AT THE SAME TIME 
[THE NEW Hw ECO IS IMPLEMENTED. 
013737 001142 MOV SBDDAT, $TMPO SCHECK IF CC AND CH SET 
#171777, $TMPO :CHOP OFF THE REST BITS 
#6000, $TMPO :CH AND CC BOTH SET THEN 
101$ “BRANCH TO NEW LOCATION 


WDNAUSWN $0 OONOUESWN OO 


RRR RR EREE 


RUN AND GO NOT SET 


SERERERES 


3 


RANZSS 


012705 000021 


FEEEEE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ReREE 
woo 


Ree 


#RQA'ROB' TST, SBDDAT . 
(R4)+, $GDDAT 
RMDCO,$GDDAT  ;OR CYLINDER ADDRESS 


SGDDAT , SBDDAT 
70$ BRANCH IF TAG BUS WRONG 


ee ee ed ae ed ed eed ed 
w 


SoRSE 
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056304 101$: 
056304 141401 #DMD ! MUR 'MOC ! DBEN! DBCK,RMMR1 (RO) ;LOAD RMMR1 
056312 $0 041401  pietheetgine sane ear (RO) ;LOAD RMMR1 


001136 
000040 
; INCORRECT TAG BUS DURING DATA 
80$: 
DROP ON CYLINDER TO RESET LATCH, SET ON CYLINDER TO PASS TEST AT 
;LOCATION 166 
MOV #DMD 'MUR'DBEN,RMMR1(RO) ;LOAD RMMR1 
056352 MOV ADMD 'MUR ' MOC ' DBEN, RMMR1 (RO) ;LOAD RMMR1 

:STEP SEQUENCER TO END OF OFFSET AT LOCATION 174° (37 CLOCKS) 


056360 012705 MOV #37.,R5 RELOAD CLOCK COUNT 
056364 90$: 


056364 016037 RMMR2 (RO) , SBDDAT sSTORE RMMR2 AT $BDDAT 
056372 016037 114 RMMR2 (RO) . SBDDAT ‘IF CH AND CC SET AT THE SAME TIME 
: THE NEW HW ECO IS IMPLEMENTED 
013737 001142 174 SBDDAT, $TMPO [TEMP STORAGE 
2 #171777 -STHPO ‘CHECK CH AND CC SET ? 


z1F IT_IS AN OLD HW 
;ADJUST THE TABLE ADDRESS 
:TO OTHER LOC 


001142 . #RQA! ROB! TST, SBDDAT 
(R4) ,SGDDAT 


ACH, (R4) 
BRANCH IF CONTROL/HEADER NOT ON 


110$ 
ACC, (R4) 
BEQ 100$ ;BRANCH IF HEADER TAG 
;CONTROL TAG SHOULD BE ON-SETUP EXPECTED OFFSET 
052737 BIS #8B03 ,$GDDAT ASSUME OFD IS NOT SET 
032737 #OF D ,RMOFO 
001406 95$ 


042737 #8B03 ,SGDDAT RESET BUS BIT 3 - DIRECTION IS REV 
052737 000004 #BB02 , $GDDAT 
000407 95$: 110$ 


100$: 
;HEADER TAG SHOULD BE ON - SETUP EXPECTED TRACK ADDRESS 
ab La 001410 MOV ~< tralaaa :GET TRACK 


R 
042703 177770 #*C7,R3 
050337 001140 R3, $GDDAT 


110$: 
COMPARE EXPECTED AND RECEIVED TAG BUS DATA 
056532 023737 001140 CMP $GDDAT , $BDDAT 
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056540 
056542 


056542 
056550 
056556 


012760 
012705 


016037 
042737 
012737 


0567 

056714 
056716 
056720 


056740 


09:19 


141401 
041401 
000002 


041001 
041401 


000010 


000040 
171777 


006000 
001140 
141401 


041401 


001136 
000040 


MACY11 a os aaa 
7120 


001136° 


001142 
001142 
001140 
001142 
000024 
000024 


107$: 


5 
Big em. 09: 22 PAGE 272 
A COMMAND TESTS(3) 


120$ 


#DMD ! MUR ! MOC ! DBEN! DBCK , RMMR1 (RO) ;LOAD RMMR1 
tt teananeaiesaage -RMMR1 (RO) ;LOAD RMMR1 


VE TABLE POINTER 
;DECREMENT CLOCK COUNT 


; INCORRECT TAG BUS DURING DATA 


130$: 
:DROP ON CYLINDER TO RESET LATCH, RAISE ON CYLINDER TO PASS TEST AT 
; SEQUENCER LOCATION 175 


MOV 


MOV 
;STEP SEQUENCER 

MOV 
140$: 


150$: 


160$: 


#DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 


#DMD ! MUR ! MOC ! DBEN, RMMR1 (RO) ;LOAD RMMR1 
TO SECTOR WAIT LOOP (8 CLOCKS) 


RMMR2 (PO) , SBDDAT STORE RMMR2 AT $BDDAT 
#RQA! ROB! TST ,SBDDAT 

#171777 ,SBDDAT 

#6000, SGDDAT 7CH AND CC BOTH ARE SET ? 
SGDDAT,S$BDDAT  ;GOOD DATAEXPECTED ? 

150$ BRANCH IF ERROR 

ADMD ! MUR ! MOC ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 


* atectnataietentecn ment (RO) ;LOAD RMMR1 


; INCORRECT TAG BUS DURING DATA 


200$: 
; TABLE OF TAG BUS CONTROL AND DATA VALUES 
WORD 1777 ; LOCATION 


SLOCATION 146 


SEQ 0272 
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13601 056742 CC! TAG LOCATION 


SORRELL SSS 
TRETSSSSLTRUNISS OS 


meee a et es os oe ss SS I SS Ss Ss SS Ss SS SS 
3 YS Ss SD SS 


GER ee eooraess 


BSReee 


Se aRae 


CC!CH 
CC!CH! TAG 
CC!CH! TAG 
CC!CH! TAG : 
. CC!CH! TAG : LOCATION 
057076 . CC!CH! TAG ;LOCATION 175,ETC 


057100 END OF TEST 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SESESESE SETS 


38 
EREEE Whoo 
3 BS Be a Sh a Ss Ss Ss 3 3 3 FI FI II IPP PDO 





C 6 
CZRMJCO RMO3/2 DSKLS PRT 1 MACY11 30A(1052) 21=AUG=78 09:22 PAGE 274 SEQ 0274 
CZRMJC.P11 21-AUG-78 09:19 1120. DATA COMMAND TESTS(3) 

13650 SEOSP: 

13651 057100 40 NOP 

13652 TSTQUE ,RO 

13653 057106 062700 00000 #2,R0 

13654 RO, TSTQUE 
13655 (RO) 
13656 1$ 
13657 000137 6 J READ 

13658 057126 012737 001456 1$: MOV ATSTQUE+2, TSTQUE 


Lt or -SBTTL END OF PASS ROUT INE 


es 


SR RRR RRR RRR RTO RT RTI ROR RIOR TOC IUOI TOIT IIR itt 
; INCREMENT THE PASS NUMBER ‘S$PASS) 
:*TYPE “END PASS #XXXXX TOTAL NUMBER OF — SINCE LAST REPORT YYYYY"’ 
*WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS 
;*IF THERES A MONITOR GO TO IT 
:*IF THERE ISN'T JUMP TO READY 


SEOP: 


ae 
Staite wad saataata 


STSTNM 3;ZERO THE TEST NUMBER 

STIMES 2 ZERO THE NUMBER OF ITERATIONS 
SPASS s INCREMENT THE PASS NUMBER 
#100000, $PASS ; :DON' T ALLOW A NEG. NUMBER 
(PC)+ ; LOOP? 


SeeeeeeEREE 


igtigige 
aoe 


SDOAGN z7YES 
 eneliacnenend ;sRESTORE COUNTER 


& 


057202 ,65$ 2a TYPE ASCIZ STRING 
64$ :GET OVER THE ASCIZ 
<12><15>/END PASS #/ 


057220 
057220 013746 001230 $PASS ,~(SP) 7sSAVE SPASS FOR TYPEOUT 
23 TYPE PASS NUMBER 
057224 104405 :G0 ys oe pian ASCII WITH SIGN 
057226 104401 057234 .67$ zi TYPE ASCIZ STRING 
057232 000421 BR 66$ GET OVER THE A a 
057276 ;;67$: 7 TOTAL ERRORS SINCE LAST REPORT / 


057276 013746 001126 ; SERTTL,-(SP)  ;;SAVE SERTTL FOR TYPEOUT 
NUMBER OF ERRORS 


£360 TYPE--DECIMAL ASCII WITH SIGN 
001217 TYPE YPE CARRIAGE — LINE FEED 
001126 CLEAR ERROR TOTAL 
000042 $GET42: 22GET MONITOR ADDRESS 
CH IF NO ITOR 


Secessecrarcees 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


RRKS 
8828 


SENDAD: JS PC, (RO) 
NOP 


SDOAGN: 
a(PC)+ 
SRTNAD: READY 


me ke ee ek ee ee ed ed ed ed ed ed od od od od ot ot oS 
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13706 057340 377 377 000 SENULL: .BYTE <-1,-1,0 ;sNULL CHARACTER STRING 
13707 057344 EVEN 


1 
1 
1 
1 
1 
1 
1 
1 
1. 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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NNNN 


aalabahahahal 
WONAUEW 


td a a ts a 
WWWAWWNWW 
yo> 


020000 


057366 
057372 
057376 


104401 
013746 
104403 
003 
000 
104401 
013746 
057470 . 
057472 
057473 


057474 
057500 


104 
105037 


21-AUG-78 09:19 


MACY11 30A(1052) 
SUBROUT INE 


121600 


-SBTTL SUBROUTINES 


Py RRA RAEAAEREEEEREREEEKEREKEEREREKEEEREERRRERRKEKEERREREKEEE 


*SBTTL ERROR TYPEOUT ROUTINE 


;*THE ERROR TYPEOUT ROUTINE ASSEMBLES AND PRINTS INFORMATION 


E 6 
ere 09:22 PAGE 276 


7 *REGARDING THE DETECTION OF AN ERROR AS FOLLOWS: 


-* 


.UNIT NUMBER, TEST NUMBER, ERROR NUMBER AND PROGRAM COUNTER ARE 
; #PRINTED ON THE FIRST LINE; 
ERROR MESSAGE IS ASSEMBLED, FORMATTED AND PRINTED ON 


; #ONE OR MORE SUCCEEDING LINES; 


-PAIRED LINES OF ER 


ROR HEADERS AND ERROR DATA 


7 RARE PRINTED AFTER THE ERROR MESSAGE. 


ERRTYP: 


SAVRFG 
BIT 


BEQ 


#SW13,aSWR 
1$ 


JMP 21$ 
; TYPE UNIT NUMBER, TEST NUMBER, 
1$: TYPE -SCRLF 


3$: 


-ERTYOO 
SUNIT ,~-(SP) 


3 


TSTN'B 
STESTN, TSTNMB 
-ERTYO1 

TSTNMB ,-(SP) 


3 

0 

ERRN®B 
oe 
-ERTYO2 
ERRNMSB , ~ (SP) 
3 

0 


-ERTYO3 
SERRPC ,- (SP) 


; : INHIBI T TYPEOUTS?? 
:NO!! 
ii, ' 


ERROR NUMBER, AND PROGRAM COUNTER 


;TYPE ‘‘UNTA"' 
SAVE a FOR oo 


; s SUPPRESS ay ngl aa 
;LOAD TEST NUMBER F 


3TYPE "'TST#’ 

3 SAVE TSTNMB FOR TYPEOUT 
;TYPE TEST NUMBER 

2260 TYPE=-OCTAL ASCII 
TYPE 3 DIGIT(S) 

7; SUPPRESS LEADING ZEROS 

;LOAD ERROR NUMBER FOR 

: TYPEOUT 

: SKIP a NO ERROR CALLED 


SAVE Ag FOR TYPEOUT 


IT(S) 

Ah ag, 3H LEADING ZEROS 
7;SAVE SERRPC FOR TYPEOUT 
;; TYPE PROGRAM COUNTER 

se ereiiee ASCII 


BYTE 1 TYPE 
; GENERATE Baty Be ERROR TABLE “UNLESS ERROR NUMBER IS 0 


—~ AN ERROR CALLED? 


i VES-TYPE CRLF 
CLEAR BOT FLAG 


SEQ 0276 
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057512 105037 060107 
013700 060102 


006300 
006300 
006300 


062700 001522 
011001 
001507 
012102 
1505 

057712 

060104 

000015 

060107 

000012 

000011 

060107 

000007 

060107 

000049 


060104 
000100 


060104 
001217 
060107 
057712 


g 


177777 


BeCeCECEEEe et ts 
Nu 


a aed aad cath cad aad and end acd nd 
WONAWUSWN oO 
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ERROR TYPEOUT ROUTI 


CHRCNT 
aesine: 


R 
RO 


RO 
#SERRTB-8. RO 


(RO) ,R1 
12$ 
ME SSAGE 
(R1)+,R2 
2s 
R2,11$ 
BOTADR 
(R2)+,R3 
10$ 
#CR,R3 
6 
CHRCNT 
5$ 
#LF .R3 
5$ 
#HT .R3 
CHRCNT 
#7, CHRCNT 
7$ 
OF 
CHRCNT 
#’ ,R3 


9$ 
R2,BOTADR 
- -CHRCNT 


CLEAR CHARACTER COUNTER 

RO POINTS TO FIRST OF 

FOUR ENTRIES IN ERROR 
ABLE 


:R1 POINTS TO ERROR MESSAGE 
‘BRANCH IF NO ERROR MESSAGE 


;R2=ADDRESS OF oF hath STRING 
BRANCH IF END OF MESSAGE 
;LOAD ADDRESS OF STRING 
;CLEAR BOT ADDRESS 

SEND OF STRING?? 


sYES:: 
; CARRIAGE RETURN?? 
sNO!! 


7; YES-CLEAR CHAR COUNT 
ZGET y CHARACTER 
sLINE FEED?? 

TYES~GET NEXT CHARACTER 
sHORIZONTAL TAB?? 


ZADJUST CHARACTER COUNT 


: INCREMENT CHARACTER COUNT 
: SP “> ale 


7 SAVE peti? 5oF SPACE 
7 END OF LINE?? 


:NO!! 

:GET " ADDRESS OF LAST SPACE 
BRANCH IF SPACE DETECTED 
[TYPE CRLF 

;CLEAR CHARACTER COUNT 
SET UP R2 FOR TESTING 


sREPLACE SPACE 
4 BOT FLAG 

TYPE ERROR MESSAGE STRING 
“STRING ADDRESS GOES HERE 
zWAS STRING TRUNCATED?? 


big ys CRLF 


;RESTORE SPACE 
TRESTORE R2 
TYPE REST OF STRING 


12$: 
; TYPE ERROR HEADER AND ERROR DATA 


SEQ 0277 
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057756 13$: 
000002 MOV 2(RO) RI 3R1 POINTS TO ERROR HEADER TABLE 
21$ ; NO HEADER 


001217 - SCRLF 7 (AS NO DATA) 
000004 4(RO) ,R2 3R2 POINTS TO DATA ADDRESS TABLE 
000006 6(RO) ,R3 ;R3_ POINTS TO FORMAT TABLE 
060010 : (R1)+,15$ PUT HEADER ADDRESS FOR TYPE 
21$ BRANCH IF END OF HEADERS 
; (ASSUME END OF DATA) 


;HEADER ADDRESS GOES HERE 
DATA WITH HEADER?? 
*-NO! ' 


zR4 POINTS TO DATA ADDRESS 

:RS POINTS TO FORMAT 

;WHAT KIND OF DATA?? 

;BINARY 
17$ sOCTAL 
a(R4)+,-(SP) ;DECIMAL 


VUEWN- 


saReepeRRREE 


86 85 Bo So So 80 85 80 83 So 
etettettctete 


W 
ovo 


19$ 
a(R4)+,-(SP) 


si 


19$ 
a(R4)+,-(SP) 
(R4) sMORE DATA?? 
208 zNO!! 
-ERTYOS ZYES-TYPE 2 SPACES 
16$ zAND CONTINUE 
. SCRLF TYPE ONE BLANK LINE 
14$ ;BEFORE NEXT HEADER 
PC 
; TEST NUMBER 
;ERROR NUMBER 
;BEGINNING OF TEXT ADDRESS 
: ;BOT FLAG 
CHRCNT: CHARACTER COUNT 


052111 000043 ERTYOO: . @UN! T#a 
042524 052123 ERTYO1: . @, TEST# 


051105 021522 ERTYO2: . a, ERR# 
050040 036503 ERTYOS: . a, PC=a 


000040 ERTYO4: . aa 
-EVEN 


cepa peRuREaa TERETE 


Bee 
Yess 


i 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


te 
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ere .SBTTL CLOCK SUBROUTINES 

13874 ROUTINE TO SIZE FOR CLOCKS (KW11-L OR KW11-P) 

13875 LL RARA AAR AEAAA ERRATA ERA ARERR ERR RRARERERE REAR RRR AAA AES 
13876 000240 SIZCLK: NOP 

13877 ERRVEC,=(SP) 3 ;PUSH ERRVEC ON STACK 

13878 000006 ERRVEC+2,-(SP) PUSH ERRVEC+2 ON STACK 
#10$,ERRVEC ; LOAD 04° TRAP VECTORS 
#PR6,ERRVEC +2 


zSEE IF A KW11-P CLOCK IS PRESENT - GO TO 10$ i PRESENT 
TST @$LPCSR ;TEST FOR P CLOC 
#PCLOCK,CLOCK  ;LOAD SUBROUTINE “ADDRESS 
#PSTOP, STOP ;LOAD STOP ADDRESS 
#PCOUNT, po Ae ;LOAD P CLOCK INTERRUPT VECTOR 
#PR6, aSLPVEC+2 
SLLVEC+2, SSLLVEC: CLEAR L CLOCK INTERRUPT VECTOR 
a$LLVEC+2 


30$ 
10$: MO #15$, (SP) ;DUMMY RTI ADDRESS 
RESTORE PRIORITY 


15$: 
sNO P CLOCK-SEE IF . a. IS PRESENT-GO TO R.. IF = PRESET 
MOV #208, ee Src 04 T VECTOR 
aSLLCSR TEST FOR L CLOCK 
ALCLOCK, CLOCK LOAD SUBROUTINE ADDRESS 
#LSTOP, §T oP ;LOAD STOP ADDRESS 
#LCOUNT, @$LLVEC ;LOAD L CLOCK INTERRUPT VECTOR 
#PR6, asi VEC+2 
SLPVEC+2, @SLPVEC;CLEAR P CLOCK INTERRUPT VECTOR 
rece +2 


30 
208: #25$, (SP) ;DUMMY RTI ADDRESS 
sRESTORE PRIORITY 


25$: 
3NO CLOCK AVAILABLE - AUGMENT wa 7 P ADDRESS 
CLR CLOCK LEAR SUBROUTINE ADDRESS 

roy Ape »SLPVEC:CLEAR P CLOCK INTERRUPT VECTOR 
L 
MSLLVEC+2,$LLVEC;CLEAR L CLOCK INTERRUPT VECTOR 
SLLVEC+2 
#2,4(SP) ; CHANGE RETURN ADDRESS 


gee 


BERGE 


PERSP EEE EREL LL 


WWNWWAS 
WN 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
} 
: 
1 
4 
; 
1 
: 
1 
1 


8888 


MARBOOOW 


30$: 
012637 000006 (SP) +, ERRVEC+2 :POP STACK INTO ERRVEC+2 
012637 ala cama 7 zPOP STACK INTO ERRVEC 


000207 RTS P 
ROUTINES TO START THE CLOCK (KW11-L OR KW11-P) 


LL AAARA AAA AAR AAA RER ERA A EERE REEEEREEAEARRERRERERREARER EEE 


8 
2 


012777 PCLOCK: MOV #-1,a$LPCSB sLOAD COUNT SET BUFFER 
012777 MOV #135, a$LPCSR | :LOAD CONTROL REGISTER 
000403 BR PLCLK *GO TO COMMON CODE 


012777 LCLOCK: #100, a$LLCSR ;LOAD CONTROL REGISTER 
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001522 PLCLK: TIME CLEAR TIMER COUNT 
T ;¢PUSH OLD PSw AND PC ON STACK 
(SP)+,R5 ii SAVE THE PSw IN RS 
001520 * ; SAVE PRIORITY 
177437 MASK X 


000300 #PRE,R a PRIORITY TOO HIGH?? 


000240 ) > ;PuT NEw PS ON STACK 
060472 #308. (SP) :7PuT NEW PC ON STACK 
7 ;P0P NEw PC AND PS 
30$: 
40$: PC 


;ROUTINES TO HANDLE CLOCK INTERRUPTS (Kel l-i OR KWl1-P) 


PCOUNT: 
L COUNT: 
000021 ont ADD 17S TO ELAPSED TIME 
i OVERF LOW 


177777 ‘ 
000021 108: = ( « DECREMENT REMAINING TIME 
oF ;BRANCH IF POSITIVE 
001524 7; CLEAR ee TIME 
208: “RETURN TO USER 


ROUTINES TO STOP THE CLOCK (KuT1-i OR Kw11-P) 
120746 PSTOP: = a@$LPCSR sSTOP P CLOCK 


PLSTP ;GO TO COMMON STOP CODE 
120750 LSTOP: @Si.LCSR ;STOP tL CLOCK 


PLSTP: 
013746 001520 SPSwW.-( SP) 77PUT NEW PS ON STACK 
012746 060554 #10$,-(SP) ;7PUT NEW PC ON STACK 
000002 108 :7POP NEW PC AND PS 


000207 Pc 
.SBTTL SET VOLUME VAL!D SUBROUTINE 


THIS SUBROUTINE INITIALIZES THE SUBSYSTEM AND SETS VOLUME VALID, 

; RETURNING WITH THE eat STILL IN DIAGNOSTIC MODE. THE SUBROUTINE 
;RETURNS TO THE WORD FOLLOWING THE CALL, EXCEPT WHEN AN ERROR IS 
3) sige IN WHICH CASE IT RETURNS TO THE SECOND WORD FOLLOWING THE 


“CALL: JSR PC, SETVV JUMP TO SUBROUTINE 
: BR ?7 RETURN HERE IF NO ERROR 
: RETURN HERE IF ERROR 


SETVV: 
012760 000040 000010 #CLR,RMCS2(RO) ;CLEAR THE MASSBUS 
111160 000010 (R1),RMCS2(RO) ;SELECT UNIT 


012760 000001 000024 #DMD,.RMMR1(RO) ;LOAD RMMR1 
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060576 012760 001001 000024 #DMD ! MUR , RMR 1 (RO) LOAD RMMR1 
000900 000014 #0 ,RMER1 (RO) ;LOAD RMER1 
000000 000042 #0 ,RMER2 (RO) ;LOAD RMER2 
000023 #PACACK !GO,RMCS1 (RO) ;LOAD RMCS1 
aie STORE RMDS AT SBDDAT 


;BRANCH IF VOLUME VALID SET 
7SETUP FOR ERROR MSG 


000012 
177677 


MOVE RETURN ADDRESS TO ERROR 
NUMBER 


WRITE ERROR 
#PACACK ,STMPO 
108: PC RETURN 


-SBTTL SET OFFSET MODE SUBROUTINE 
THIS SUBROUTINE EXECUTES AN OFFSET COMMAND AND VERIFIES THAT OFFSET 
[MODE SETS. THE DRIVE SHOULD BE IN DIAGNOSTIC MODE WHEN CALLING THE 
>; SUBROUTINE, WHICH WILL LEAVE DMD ON. THE SUBROUTINE RETURNS TO THE 
;WORD FOLLOWING THE CALL UNLESS THERE IS AN ERROR, IN WHICH CASE IT 
;RETURNS TO THE SECOND WORD FOLLOWING THE CALL 

JSR PC,SETOM JUMP TO SUBROUTI 

BR ?? 


NE 
RETURN HERE IF NO ERROR 
RETURN HERE IF ERROR 


#DMD ! MUR , RMMR1 (RO) ;LOAD RMMR1 
#0 .RMER1 (RO) LOAD RMER1 
#0 ,RMER2 (RO) ;LOAD RMER2 
000015 #OF F SET!GO,RMCS1(RO) ;LOAD RMCS1 
RMDS (RO), + ee STORE RMDS AT $BDDAT 
OM, $BDDA 
;BRANCH IF OFFSET ON 


000012 
177776 


ARMDS , 
062716 00000 #2, (SP) :MOVE RETURN ADDRESS TO ERROR 
112776 #200, a(SP) ‘WRITE ERROR NUMBER 


000207 ; PC ;RETURN TO USER 
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.SBTTL SAVE AND RESTORE RO-R5 ROUTINES 


J LRA EERE EERE ERE EE EERE RARER ERE EE REERER ERE ERE 
s*SAVE RO-RS 

s*CALL: 

s* SAVREG 

:*UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 

-* 

; *TOP=---(+16) 

;* +2<---(+18) 


3*+14=---R0 
SSAVREG: 
MOV 


RO,-(SP) 53 RO ON STACK 


P) . 
B2tSP). -(SP) ;;SAVE PS OF 
22(SP) ,-(SP) 33 PC OF 
22(SP) .=(SP) ¥ PS OF 
22(SP) ,~(SP) 33 PC OF 


;*RESTORE RO-R5 


>*CALL 
*?® 
SRESREG: 
MO (SP)+,22(SP) ; RESTORE PC OF CALL 
7 RESTORE PS OF CALL 
; RESTORE PC OF MAIN FLOW 
; RESTORE PS OF MAIN FLOW 
: POP STACK INTO R5 


3:POP STACK INTO R1 
(SP)+,RO 7zPOP STACK INTO RO 


RTI 
-SBTTL BINARY TO ASCII AND TYPE ROUTINE 


otitis 
SS THIS ROUTINE IS USED TO pee A 16-BIT BINARY NUMBER TO A 16-B81T 
>; "Tees NUMBER AND TYPE IT. 


s@ MOV NUMBER , - (SP) ; NUMBER TO BE TYPED 
i* TYPBN sc TYPE IT 


010146 STYPBN: MOV R1,-(SP) 3:SAVE_R1 ON THE STACK 
016601 000006 MOV 6(SP),R1 3:GET THE INPUT NUMBER 
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32SET “'C’' SO CAN KEEP TRACK OF THE NUMBER OF BITS 
000060 061156 1$: : 32SET CHARACTER TO AN ASCII ‘0"". 
R1 : ONE? THIS BIT 


061156 : NO=-SET oa CHARACTER EQUAL TO THIS BIT 
061156 2260 Lig & HIS BIT 
set *c’’ SO ~ KEEP TRACK OF BITS 
£360. 00 THE NEXT BIT 
: (SP)+,R1 ;;POP THE STACK INTO R1 
000002 2(SP) ,4(SP) + [ADJUST THE STACK 


(SP) +, (SP) 
2 7RETURN TO USER 
000 $BIN -BYTE 0,0 STORAGE FOR ASCII CHAR. AND TERMINATOR 
SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


{RRR RRR EERE REAR R RA A REE RERERR ARERR REAR ERE RE R ER R 

SR THIS ROUTINE IS USED TO CHANGE A 16-B1T BINARY NUMBER TO A 5-DIGIT 
;*S1GNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
7 *NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
[*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 

; sREPLACED WITH SPACES. 


NUM, ~(SP) 3;;PUT THE BINARY NUMBER ON THE STACK 
3:GO TO THE ROUTINE 


$STYPDS: 
MO RO,-(SP) : PUSH RO ON STACK 

R1,~-(SP) 
R2,-(SP) 
R3, pet A 

R5S,-(SP) 
#20200, -(SP) 

20(SP) ,RS 


° 


R5 
#*=,1(SP) 
RO 


#SDBLK ,R3 
#* ,(R3)4 


R 
S$DTBL(RO) ,R1 
R1,R5 


27 FORM THIS BCD DIGIT 
:BR IF DONE 
ZZINCREASE THE BCD DIGIT BY 1 


a BACK THE CONSTANT 
CHECK IF BCD DIGIT=0 


7:FALL THROUGH IF 0 
:3STILL a LEADING 0°S? 


6$ s: F NO 
177777 MOVB  1(SP).-1(R3) «= : YES==SET THE SIGN 
6 #'0,R2 + :MAKE THE BCD DIGIT ASCII 
#' “RO SZMAKE IT A SPACE IF NOT ALREADY A DIG 


: “ IT 
110223 R2,(R3)+ 3;PUT THIS CHARACTER IN THE OUTPUT BUFFER 
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22 JUST INCREMENT ING 
000010 CHECK THE TABLE INDEX 
2$ 3360 ° vat NEXT DIGIT 


::G0 C E TO ASCII 
23 WAS THe sD THE FIRST NON-ZERO? 


177777 |+=177776 -1(SP) ,-2(R3) 3: YES==SET THE SIGN FOR TYPING 
9$: as as 23SET THE TERMINATOR 
+. 


(SP)+,R3 

(SP)+,R2 

(SP)+,R1 33 

(SP) +,RO 3:POP STACK INTO RO 

, $DBLK :zNOW TYPE THE NUMBER 
2(SP) ,4(SP) ;zADJUST THE STACK 


(SP) +, (SP) 
; RETURN TO USER 


$DBLK: .BLKW 4 
“SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


DDI ISISISI ISI IDISIIOIIISIIOIIIOIIOICIOICI IOI III IOI IIR TOI TOR TOTTORI OTA SOR 

:*THIS ROUTINE IS USED TO CHANGE A 16-B8I1T BINARY NUMBER TO A 6-DIGIT 
:*OCTAL (ASCII) NUMBER AND TYPE IT 

: #$TYPOS~--ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


NUM, ~ (SP) _ {7MMBER TO BE TvRED 
N SIN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
;iM=1 OR 0 


M 
321=TYPE LEADING ZEROS 
3 0=SUPPRESS LEADING ZEROS 


: *$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
oe het OR $TYPOC 


MOV NUM, ~(SP) 7 NUMBER TO BE TYPED 
3-CALL FOR TYPEOUT 


;#STYPOC—--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
** 


NUM, ~ (SP) ; NUMBER TO BE TYPED 
3-CALL FOR TYPEOUT 


YPOS: @(SP) ,-(SP) 7sPICKUP THE MODE 
061627 MO 1(SP) , SOF ILL + sLOAD ZERO FILL SWITCH 
MO (SP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 
#2, (SP) :;ADJUST RETURN ADDRESS 


BR $STYPON 
061627 $TYPOC: #1,S$0F ILL 3;SET THE ZERO FILL SWITCH 
112737 000006 061631 MO #6, SOMODE +1 3:SET FOR SIX(6) DIGITS 
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112737 000005 061626 S$TYPON: — #5 ,SOCNT : EVE RS ITERATION COUNT 


+S SAVE R4 
+S SAVE RS 
061631 $0 GET THE NUMBER OF DIGITS TO TYPE 


000006 3;SUBTRACT IT FOR MAX. ALLOWED 
061630 7sSAVE IT FOR USE 
061627 3sGET THE ZERO FILL SWITCH 
000012 3sPICKUP THE INPUT a7 

R3 7sCLEAR THE OUTPUT 
i oon MSB INTO Cn 


O MSB 
73FORM THIS DIGIT 


R :2GET LSB OF THIS DIGIT 
061630 :TYPE THIS DIGIT? 
BP 7$ 


; IF NO 
177770 . SIGET RID OF JUNK 
BN 4$ ; 


7:DON'T SUPPRESS ANYMORE 0'S 
MAKE THIS DIGIT ASCII 

* IMAKE ASCII IF NOT ALREADY 

zSAVE FOR TYPING 

2360 ig & “ee DIGIT 


::BR_IF DONE 
3; INSURE LAST DIGIT ISN'T A BLANK 
3:GO0 DO THE LAST DIGIT 
3 RESTORE R5 
7 sRESTORE R4 
(SP)+,R3 7 zRESTORE R3 
000002 000004 . 73SET THE STACK FOR RETURNING 


7 RETURN 
8$: J sz STORAGE FOR ASCII DIGIT 
: TERMINATOR FOR TYPE ROUTINE 
CNT: BYTE ;Z;0CTAL DIGIT COUNTER 
SOFILL: J 7zZERO FILL SWITCH 
OMODE: .WORD 0 3s NUMBER OF DIGITS TO TYPE 
ai TYPE ROUT INE 


IASC IDI IOIIISIIIIICIIOIOIIOIIOIOIIOI IOI OI IID TOI ITO TOOT TOT TOI TOI TTI. 
* RROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYT 
*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE F 
;*NOTE1: $NULL CONTAINS THE CHARACTER Y BE USED AS THE FILLER. CHARACTER. 
7 *NOTE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
> *NOTE3: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 


°e 
e 


7*CALL: 
3*1) USING A TRAP INSTRUCTION 
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105737 
10000 


013746 
105366 
002770 
004737 
105337 
000770 


112716 


000724 
105777 


001173 


000002 
000001 


000100 


061702 
064720 


000040 


000002 
000011 
000200 


062110 


062044 
001172 


001170 
000001 


062044 
062110 
000040 
062044 
000007 


117114 


MACY11 30A(1052) 
TYPE ROUTI 


001242 
001243 


001243 


062110 


3* TYPE 
i* TYPE 


61$: 
62$: 
2s: MOVB 
60$: 
3$: 


4$: CMPB 


BR 
5$: JSR 
6$: CMPB 


7$: DECB 
T 


R 
DECB 
BR 


sHORIZONTAL TAB 


8$: MOVB 
9$: JSR 


$TYPEC: TSTB 


;* ME SADR 


B 
21-AUG-78 09:22 
NE 


»MESADR 


STPFLG 
1$ 


3$ 

RO,-(SP) 
@2(SP) ,RO 
MAPTENV, SENV 


62$ 
#APTSPOOL ,SENVM : 
62$ 


RO,61$ 
PC ,SATY3 


0 
MHAPTCSUP , SENVM 


60$ 

(RO) +,-(SP) 
4$ 

(SP) + 
(SP)+,RO 
#2, (SP) 
#HT , (SP) 
ACRLF , (SP) 
5$ 


(SP) + 


SCHARCNT 
2$ 


PC,STYPEC 
SFILLC,(SP)+ 
2$ 


SNULL , - (SP) 
1(SP) 

6$ 

PC, STYPEC 
SCHARCNT 
7$ 
PROCESSOR 
#* (SP) 
PC, STYPEC 
#7, S$CHARCNT 
oS 

(SP) + 


2$ 
a$TPS 


7 
PAGE 286 


SEQ 0286 


i3;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


3731S THERE A TERMINAL? 
;-BR IF YES 
> as IF NO TERMINAL 


72SAVE RO 
2 3GET ADDRESS OF ASCIZ STRING 
; RUNNING IN APT MODE 
::NO,GO CHECK FOR APT CONSOLE 
:SPOOL MESSAGE TO APT 
INO, GO CHECK FOR CONSOLE 
aS TUP MESSAGE ADDRESS FOR APT 
SPOOL MESSAGE TO APT 
+ MESSAGE ADDRESS 
+ TAPT CONSOLE SUPPRESSED 
2cYES, SKIP TYPE OUT 
PUSH CHARACTER TO BE TYPED ONTO STACK 
BR IF IT ISN*T THE TERMINATOR 
72 1F TERMINATOR POP IT OFF THE STACK 
; RESTORE RO 
; ADJUST RETURN PC 


ETURN 
; BRANCH IF <HT> 
; BRANCH IF NOT <CRLF> 


7zPOP <CR><LF> EQUIV 
zz TYPE A CR AND LF 


3;CLEAR CHARACTER COUNT 


ER 

s3i8 17 hy FOR fon CHARS. ? 

z21F NO GO GET NEXT CHAR. 

22GET # OF FILLER CHARS. NEEDED 
THE L CHAR. 


NUL 
; DOES A NULL NEED TO BE TYPED? 
:BR IF eta POP THE NULL OFF OF STACK 
7:60 TYPE A NULL 
22D0 NOT COUNT AS A COUNT 


7;REPLACE TAB WITH SPACE 
TYPE A SPACE 
1 ST IF NOT AT 


oP 
: POP SPACE OFF STACK 
T_ NEXT CHARACTER 
WAIT UNTIL PRINTER IS READY 
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S$TYPEC 
000002 117106 2(SP) ,$TPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 
000015 000002 —* 21S es A CARRIAGE RETURN? 


; sBRANCH IF NO 
062110 = CHARACTER COUNT 


$ sé 
000012 1$: MPB ALF, 2S) 31S CHARACTER A LINE FEED? 
$TYP 7 7BRANCH IF YES 
INCB POs 3: COUNT THE CHARACTER 
$SCHARCNT:.WORD 0 37; CHARACTER COUNT STORAGE 
STYPEX: RTS PC 


-SBTTL SCOPE HANDLER ROUTINE 


HE ERISA SIS III III IOI IOI IIIOIOIIICI IOC ITO ITT TOIT TTT 

SR THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
:*AND LOAD THE ERROR FLAG (S$ERFLG) INTO DISPLAY<15:08> 

3*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
;*SW LOOP ON TEST 


E 
INHIBIT ITERATIONS 
LOOP ON ERROR 

LOOP ON TEST IN SWR<7:0> 


3; SCOPE=I0T 


104410 ” CKSWR z:TEST FOR CHANGE IN SOFT-SWR 


032777 040000 117030 3 #B1T14,aSWR : sLOOP ON PRESENT TEST? 
001131 BNE SOVER sYES IF SwW14=1 
;AHAAASTART OF CODE FOR THE XOR TeSTERMeNae 
000416 $XTSTR: BR 6$ 7 1F RUNNING ON THE Ay ef TESTER CHANGE 
3THIS INSTRUCTION TO A_‘NOP** (NOP=240) 
013746 000004 @#ERRVEC ,-(SP) SISAVE THE CONTENTS OF THE ERROR VECTOR 
#5$ ,AAERRVEC a FOR TIMEOUT 
a#177060 TIME OUT XOR? 
(SP) +, @#ERRVEC 3 SRESTORE THE i _— 
$SVLAD TO THE NEXT TEST 
5$: (SP) +, (SP)+ SICLEAR THE STACK AFTER A TIME OUT 
(SP) +, a@#ERRVEC 2 ¢RESTORE THE ERROR VECTOR 
BR 7$ LOOP ON THE PRESENT TEST 
6$:;#MHAAEND OF CODE FOR THE XOR’ TESTERAMAAM 
000400 116762 BIT ~ llama aSWR Ter IF NO TEST? 


~(SP) CLEAR A_TEMP. LOCATION 
116752 MOVB aSWR, (SP) 3 PICKUP THE DESIRED TEST NUMBER 
BAD TEST has 


8$ a SWR 
000120 #120, (SP) 3 CHECK THE S 
BRANCH IF TEST NUMBER IS OUT OF RANGE 
001116 | Elena i BecRUs a NUMBER 


CKUP BY 
(SP) SCALE THE TEST NUMBER AS AN INDEX 
062426 AD #$SWO8TBL , (SP) FORM THE ADDRESS OF TEST POINTER 
001122 a(SP)+,$LPADR 2eSET LOOP ADDRESS TO DESIRED TEST 
BR SOVER LOOP ON THE TEST 


:GO 
(SP)+ Z:CLEAN THE BAD TEST NUMBER OFF OF THE STACK 


ek ek ed ed ed ed a a a do = 0 a oe oo o_o oo 3 oO OS 


tmimimimiminini mi mi RI MIMI MI RIAL MIMI MIL AIL Ai mi mi AML ML MIMI RIAL RL RIAL PLM PAL ALAA ALA AL ALAA 
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105737 001117 2$: : SERFLG ::HAS AN ERROR OCCURRED? 
001131 001117 SERMAX.SERFLG ::MAX. ERRORS FOR THIS TEST OCCURRED? 
BH 3$ ; BR IF NO 
001000 116672 #81709 ,aSUR : LOOP ON ERROR? 
001124 001122 7S: SLPERR, SLPADR t:SET LOOP ADDRESS TO LAST SCOPE 


BR 

001117 : SERFLG 3:ZERO THE ERROR FLAG 

001206 STIMES 3;CLEAR THE NUMBER OF ITERATIONS TO MAKE 
BR 1$ 44 ae € TO THE NEXT TEST 

004000 : en 2 INH eM aay TIONS? 


YES 
001230 SPASS HIF FIRST PASS OF PROGRAM 
1$ INHIBIT ITERATIONS 
SICNT ZZ INCREMENT ITERATION COUNT 
001120 STIMES ,SICNT ee THE NUMBER OF ITERATIONS MADE 
SOVER 7;BR _IF MORE ITERATION REQUIRED 
001120 : #1,$1CNT 5 UREINITIALIZE THE ITERATION COUNTER 
001206 MO SMXCNT ,STIMES SET NUMBER OF ITERATIONS TO DO 
: STSTNM 7: COUNT TEST NUMBERS 
001226 MOVB STSTNM,STESTN 23SET TEST NUMBER Ba 


001131 MO #1 , SERMAX 
116540 SOVER: ae STSTNM,@DISPLAY ; DISPLAY TEST NUMBER 


SLPADR, (SP) :FUDGE RETURN ADDRESS 
I TE IXES PS 
SMXCNT: 7 MAX. NUMBER OF ITERATIONS 


SSWO8TBL : 
WOR TST1+2 3s STARTING ADDRESS S $1 


tt QIAN EAI 
NOUSWN-O 


N28 


7: STARTING ADDRESS 
72 STARTING ADDRESS 
020422 7 STARTING ADDRESS 
020774 TST31+2 77 STARTING ADDRESS 


ano 
me me me me me ee me me ek ek ee we me ek ed ed ed ed ed dd dd ed dd a 0 0 0 0 3 IO OS OS SONS 
LAL RL RL AL RL AL ALLL ALAA ALAA ALAA AA AAA AAAI 
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021322 TST see8 ::STARTING ADDRESS 


zSTARTING ADDRESS 
:-STARTING ADDRESS 


OF 
OF 
OF 
OF 
OF 
S OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
S OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 


3 STARTING ADDRESS 
ARTING 


ZESTARTING ADDRESS 
: 7 ¢ STARTING ADDRESS 


7:STARTING ADDRESS OF 
::STARTING ADDRESS OF 
3:STARTING ADDRESS OF 
053304 . i:STARTING ADDRESS OF 
055622 . WORD iSTARTING ADDRESS OF TEST 
ERROR HANDLER ROUTINE 


me me el ek el ek me me ee ek ek ek dd ed ed ed ed ad dd od a oo a oo 0 OV VO OO OS ~N 
WIV IU TCIU TUT IU CIC Cee eee ee eee ee eee eee eee eee ere e rele a alata ala alba ee) 


Ss Ss Ss Ss Ss Ss Ss Ss Ss SS SH VG 
MEWN 


ONGAUSWN-ON 
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001402 
013716 
022737 
001001 


000002 


057324 


MACY11 "eek tn 


OR HANDLER ROUT! 


7 
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Re ERRRRRRRAAERERERE TEEERARAREE AREER EERE REET E REE A REE 
SSTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
[*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
[AND GO TO ERRTYP ON ERROR 
Z*THE SWITCH wit oy PROVIDED BY THIS ROUTINE ARE: 


T ON ERROR 
INHIBIT ete TYPEOUTS 


*SW15=1 


+ *SW13=1 
: *Sw10=1 


37 *SWO9=1 


3 *CALL 


SERROR: 
C 


7$: 


116252 
116242 


001132 
001130 
116202 


116122 3$: 


4$: 


5$: 


6$: 
.SBITL 


BELL ON ERR 
LOOP ON ERROR 


N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 


SERFLG 
7$ 


STSTNM,@DISPLAY 


#B1T10, 
1$ 


-SBELL 
SERTTL 

(SP) , SERRPC 
#2, SERRPC 
@SERRPC ,SITEMB 
#B1T13,aSWR 


20 
PC ,ERRTYP 
RLF 


MAPTENV, SENV 


$ 
SITEMB,21$ 
— 


0 


22$ 
aSwWR 
3$ 


ry T09,aSWR 
SLPERR, (SP) 
SESCAPE 

5$ 

SESCAPE , (SP) 
#SENDAD ,a442 
6$ 


RTI 
TTY INPUT ROUTINE 


72 TEST FOR CHANGE IN SOF T-SwWR 
23SET THE ERROR FLAG 
;DON'T LET THE FLAG y TO ZERO 
: :DISPLAY TEST NUMBER AND ERROR FLAG 
L ERROR? 


; = COUN OF ERRORS 
SIGET ADDRESS OF ERROR INSTRUCTION 


:zSTRIP AND SAVE THE ERROR ITEM CODE 
:zSKIP TYPEOUT IF SET 

zSKIP_ TYPEOUTS 

;:GO TO USER ERROR ROUTINE 


7 RUNNING IN APT MODE 
;;REPORT FATAL ERROR TO APT 


; APT ERROR LOOP 

;ZHALT ON ERROR 

si SKIP IF CONTINUE 

sé T ON ERROR! 

7: TEST FOR CHANGE IN SOFT-SWR 
;Z;LOOP ON ERROR SWITCH SET? 


::BR_IF NO 
3;FUDGE RETURN FOR LOOPING 
2s CHECK FOR AN ESCAPE ADDRESS 


IF NONE 
TIFUDGE RETURN ADDRESS FOR ESCAPE 
scACT~11 AUTO-ACCEPT? 
33 CH IF NO 


:eVES 
7 RETURN 


FLARE R AAA AAA AREA RAE ER AREER EAA AR AARARREEE AA ARARARE RRR HARARE ES 


oO 
Ns 
2 


— eo YY SS SS YH os SY 
DARD ARAAADA AAA AAD ATA 
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; ;NUMBER OF ITEMS IN QUEUE 
POINTER 


Ba TTY KEYBOARD QUEUE 


3*TK INITIALIZE ROUTINE 
[*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
; *SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


: CALL: 


PC, STKINT 


= 


STKINT: STKCNT ;CLEAR COUNT OF ITEMS IN QUEUE 
063070 MO #STKQSRT ,STKQIN 3 IMOVE THE STARTING ADDRESS OF THE 
063072 STKQIN,STKQOUT ;;QUEUE INTO THE INPUT & OUTPUT POINTERS. 
000060 #STKSRV ,@MTKVEC : s INITIALIZE THE KEYBOARD VECTOR 
000062 #200 ,@MTKVEC+2 ;;°BR'' LEVEL 4 

a$TKB :CLEAR DONE FLAG 
116014 #100, a$TKS + TENABLE TTY KEYBOARD INTERRUPT 

PC 7 ¢RETURN TO CALLER 


- 


3*TK SERVICE ROUTINE 

3*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 

>*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 

:*IT IN THE QUEUE. 

z*IF THE CHARACTER IS A ‘‘CONTROL-C** (*C) STKINT IS CALLED AND 

: "UPON RETURN EXIT IS MADE TO THE ‘‘CONTROL-C'' RESTART ADDRESS (START) 


117746 116010 $TKSRV: MOVB  aSTKB,-(SP) ::PICKUP THE CHARACTER 
177600 BIC #*(177, (SP) +:STRIP THE JUNK 
000003 (SP), a3 33S 17 A CONTROL Cc? 


S3 CH IF NO 
064262 ~SCNTLC sz TYPE A CONTROL-C (“*C) 
063076 PC, STKINT Zz INIT THE KEYBOARD 
(SP)+ 7 CLEAN UP STACK 
004542 START 7 CONTROL C RESTART 
000007 (SP) #7 ei1S IT . CONTROL G? 


— ed etd ot ond od od ot ot od ot I 2 I 
PAAR AAA AAD AAAI AAI 


iw 


2s ;BRANCH IF NO 
000176 001154 #SWREG, SWR TiS SOFT=SwWR SELECTED? 
6$ 32G0 TO SWR CHANGE 


2$: ; 
000001 063066 #1, $TKCNT 31S THE QUEUE FULL? 
3$ CH IF NO 


001272 , $BELL : BRAN THE TTY BELL 
(SP) + S:CLEAN CHARACTER OFF OF STACK 


BR 5$ IT 
000023 3 (SP) #23 s318 IT A CONTROL-S? 
32$ BRANCH _IF NO 
115706 a$TKS 7:DISABLE TTY Ne per INTERRUPTS 


005726 (SP)+ 7:CLEAN CHAR OFF STAC 
105777 115700 : a$TKS 7zWAIT FOR A CHAR 


WMA 


le ed ad et od td ot ot I 
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100375 31$ ::LOOP UNTIL ITS THERE 
115674 a$TKA, --(SP) +:GET THE CHARACTER 
#°C177, (SP) S:MAKE IT 7-BIT ASCII 
(SP)+, 2) :1S IT A CONTROL~Q? 


31$ CH IF NO 
115652 #100, a$TKS ft 9 oe TTY KEYBOARD INTERRUPTS 


STKCNT ;;COUNT THIS CHARACTER 
(SP) ,#140 3321S IT UPPER CASE? 

4$ ; ;BRANCH IF YES 

(SP) ,#175 ts IT A SPECIAL CHAR? 
4$ CH IF YES 


#40, (SP) MAKE IT UPPER CASE 

(SP) +,a$TKQIN DAND PUT IT IN QUEUE 

STKQIN UPDATE THE POINTER 
063075 STKOIN, #STKQEND 3360 OFF THE END? 


$ BRANCH IF NO 
063070 WSTKOSRT,STKQIN ::RESET THE POINTER 
5$: ; sRETURN 


ETITITI TTI TTT Tt t tt ttiiiiitiiiiiiiiiiiiiitiiiii iii) 
[*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
:*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND W 
:*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 
7 *CALL = OPERATING IN TTY INTERRUPT MODE. 
022737 000176 001154 $CKSWR: CMP +> Se - SWR 31S THE — SELECTED 


"BNE 
115560 sarKs 
15$ iF NOT, 
115554 a$TkB,-(SP) 
177600 #°C177, (SP) < MAKE IT 7-B1T ASCII 
000007 (SP) #7? ::1S IT A CONTROL-G? 
2s ::1F NOT, PUT IT IN THE TTY QUEUE 
[AND EXIT 


RARER RARER REAR AREA AAA AAA AA AAA RARER RAR A Ree 
 SCONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY wy ny 3 
> *ROUTINE OR FROM THE eo SWITCH REGISTER TRAP CALL, RE SUL 
> *CONTROL-G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 

123727 001150 6$: CMPB $AUTOB #1 33 NG IN AUTO-MODE? 


2s YES 

(SP)+ : CLEAR CONTROL-G OFF STACK 

PC, STKINT 32FLUSH THE TTY INPUT QUEUE 

asTKsS DISABLE TTY KEYBOARD INTERRUPTS 
001151 #1, $INTAG SISeT INTERRUPT MODE INDICATOR 


-SCNTLG ;;ECHO THE CONTROL-G (“*G) 
- SMSWR : TYPE CURRENT ge at 
SWREG,-(SP) :ESAVE SWREG FOR TYPEOU 

3:G0 TYPE--OCTAL ASCII CALL DIGITS) 
- SNEW ; W SWR 


-(SP) 

C -(SP) 

115456 2 a$TKS 
7$ 


— 
Ww 
A 


ee ST 
WAAAY 


ALAA AIA IARIAIAROAR IAD 


33 ERE? 
77 1F NOT TRY AGAIN 
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117746 
042716 


021627 


115452 
177600 
000003 
064262 
000006 
001151 
000100 
004542 
000025 
064267 
000006 


000015 
000004 
000002 


000006 
001217 
001151 


000100 
062044 
000060 
000067 


000060 
000002 


000002 
177776 
001216 
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a$TKB,-(SP) 
#*C177, (SP) 


(SP) ,#3 
9$ 
-SCNTLC 
#6,SP 
000001 SINTAG,#1 
115410 #100, a$TKS 
8$: START 


(SP) ,425 
10$ 
-$SCNTLU 
#6,SP 
19$ 


(SP) 415 
16$ 
4(SP) 
11$ 
115336 2(SP) ,aSWR 
1 #6,SP 


: SCRLF 
000001 SINTAG.A1 
115314 ; #100, a$TKS 


PC ,STYPEC 
(SP) ,460 
8$ 


1 
ae 
#60, (SP)+ 
2(SP) 


17$: 2(SP) 
lice 


BR 
18$: .SQUES 
BR 20$ 
-DSABL LSB 


SEQ 0293 


::PICK UP CHAR 
i3MAKE IT 7-BIT ASCII 


31S IT A CONTROL-C? 
; ;BRANCH IF NOT 

3zYES, ECHO CONTROL-C (“C) 

:-CLEAN UP STACK 

5 ORANCe TF TTY KEYBOARD INTERRUPTS? 


F NO 
;ZALLOW TTY KEYBOARD INTERRUPTS 
7: CONTROL-C RESTART 
2215S IT A CONTROL=-U? 
;BRANCH IF NOT 
ssYES, ECHO CONTROL-U (“Ud 
GNORE PREVIOUS INPUT 
*:LET'S TRY IT AGAIN 
ii IT A <CR>? 
CH IF NO 
::YES, af A a FIRST CHAR? 


ZZSAVE NEW SWR 
ZiCLEAR UP STACK 
33 AND 


<LF> 
TTY KBD INTERRUPTS? 
NOT 
TTY KBD INTERRUPTS 


F YES 
IF YES 


OFF ASCII 
iis THIS THE FIRST CHAR 
: ;BRANCH IF YES 

3:NO, SHIFT PRESENT 
3: CHAR OVER TO MAKE 
z; __ROOM FOR NEW ONE. 
; sKEEP COUNT OF CHAR 


zz TYPE ?<CR><LF> 
7 ;SIMULATE CONTROL-U 


LL EAA ERR AERA REE EEE RARE A ERE REE ER AERA ERERARERRRERE EERE EES 


3*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


s*CALL: 
: RDCHR 
RETURN HERE 


32:GET A CHARACTER FROM THE QUEUE 
7; CHARACTER IS ON THE STACK 
izWITH PARITY BIT STRIPPED OFF 


meh eke ek ek ed ed a td od oo ot oo oo ot I I I 


MAMA AMAA 
Codd off off oil od ofl ofl oil all all oll ol all oll ol al lalallala al LA Lal Lal LN La La PO PPA 
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(SP) ,=(SP) ;PUSH DOWN THE PC AND 

4(SP) ,2(SP) THE PS 

4(SP) ot READY FOR A _ CHARACTER 

-(SP) T NEW PS ON STACK 

#64$ ,-(SP) Z:PUT NEW PC ON STACK 
;3POP NEW PC AND PS 


eae! 7zWAIT ON A CHARACTER 


STKCNT 7 zDECREMENT THE COUNTER 
000004 3S 1KQOUT, 4(SP) 23GET ONE CHARACTER 

$TKQOUT UPDATE THE POINTER 
063075 $TKQOUT ,ASTKQEND 32D1D IT GO OFF OF THE END? 


2 CH IF NO 
063072 #STKOSRT , STKQOUT’ 7;RESET THE POINTER 
2$: ; sRETURN 


ee 
RRA AREER RARER KEKAEEKEKEEEAREKEEAREARERRKEREERERERREKEE 


S*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


*CALL: 
RDLIN 33 INPUT A STRING FROM THE TTY 
RETURN HERE ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
3; TERMINATOR WILL BE A BYTE OF ALL O0°S 


R3,~(SP) 
(SP) 


064252 : #STTYIN,RS 3 
064262 : MSTTYINGS. ,R3 : /BUFFER FULL? 
4$ 360 IF YES 
:GO READ ONE pian FROM THE TTY 
(SP)+, (R3) 


000177 : #177, (R3) 
: 5$ 3;BR IF NO 
(SP) 2255 gt I FIRST RUBOUT? 


6$ ry. 
000134 MOVB #'\,9$ 7z TYPE A BACK SLASH 
064250 9 
177777 #-1, (SP) 23SET yA — KEY 
: R3 ;BACKUP BY ONE 
064252 R3,ASTTYIN i STACK EMPTY? 


:BR_IF YES 
064250 MOVB (R3) ,9$ i 3 SETUP TO TYPEOUT THE DELETED CHAR. 
064250 9 :2:GO TYPE 
BR 2s 3:GO READ ANOTHER CHAR. 
_ es i KEY SET? 


7 IF NO 
000134 mMOVB a es 7: TYPE A BACK SLASH 


064250 « 
(SP) 77:CLEAR THE RUBOUT KEY 
000025 : i aaaa 7721S CHARACTER A CTRL U? 


BNE $ ::BR_IF NO 
06 67 e SCNTLU 7: TYPE A CONTROL ‘U'" 
BR +260 START OVER 
00022 ~ : #22, (R3) :IS ag ee A **R'"? 
3$ >:BRANCH IF NO 


MMMAMAAMMA AM I AAI MIA AA 
aif aff oft otf ofl oft oth oft oth all afi ofl afi atl adiall ail ali ail allali all ali al alialialialia 


Vv 


abd o84 otf odd oti oti ofl ott 


ahd 224 o84 244 ot 


aid ot 


af oa 


ENSRERVSR 


me ek ek ek ed a od ot ot POO VO OO 


AMMA AMAA MMMM MMMMMMMM 


Wits & & 
MALS 
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177777 
001220 
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000 
000012 
000 
051127 
020127 


TY INPUT ROUTINE 
(R3) 
/SCRLF 
sSTTVIN 
, SQUES 
i$ 
(R3) ,9$ 
#15, (R3)+ 
2$ 


( 
4(SP) ,2(SP) 
#STTYIN,4(SP) 


9$: d 0 


0 
$STTYIN: . 8. 
/*C/<15><12> 
/*U/<15><12> 
/*G/<15><12> 


“ASCIZ <15><12>/SWR = 


eASCIZ / NEW = 


3-CLEAR THE CHARACTER 
ii TYPE A **cR’’ & 2 
: TYPE THE INPUT STRING 
£260 BICKYP, ANOTHER CHACTER 
£2 CLEAR THE BUFFER AND LOOP 
ECHO THE CHARACTER 


+ CHECK +4 * Bs oy 
OOP IF NOT RETURN 
TICLEAR RETURN (THE 15) 
oe les A LINE FEED 
; CLEAN RUBOUT KEY FROM THE STACK 
; :REST ORE R3 
;ADJUST THE STACK AND PUT ADDRESS OF THE 
33 FIRST ASCII Cn ON IT 


; sRETURN 

: s STORAGE FOR ASCII CHAR. TO TYPE 
: TERMINAT 

; RESERVE oc FOR TTY INPUT 

: CONTROL ne 

3: CONTROL ‘'G’’ 


-EVEN 
-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


» [RRA AAAAAAAERARAEEE RARER REAR REEREAEEER ARERR EAEEEERAEREAERERAR EERE EEE 


[*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


:*CHANGE IT TO BINARY. 
Z*CALL: 


RDOCT 

RETURN HERE 
(SP) ,-(SP) 
4(SP) ,2(SP) 


R2,-(SP) 
(SP)+,RO 
R1 


R2 
(RO) +,-(SP) 
3$ 


READ AN OCTAL NUMBER 
;;LOW ORDER BITS ARE ON TOP OF THE STACK 
7-HIGH ORDER BITS ARE IN $HIOCT 
: sPROVIDE SPACE FOR THE 
NPUT NUMBER 


: :PUSH RO ON STACK 


ee INE 
::GET ADDRESS OF 1ST CHARACTER 
;;CLEAR DATA WORD 


7;zPICKUP THIS CHARACTER 
ez16 ZERO GET OUT 


i284 
328 


SEQ 0295 


54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
54 
5é 
54 


1 
1 
5 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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042716 177770 #*C7, (SP) zsSTRIP THE ASCII JUNK 
062601 gee. ;zADD_IN THIS DIGIT 


3; LOOP 
: (SP)+ : CLEAN TERMINATOR FROM STACK 
000012 R1,12(SP) 7 SAVE THE RESULT 


064424 
:POP STACK INTO R2 
:1POP STACK INTO R1 
(SP)+,RO 33POP STACK INTO RO 


RTI 7 =RETURN 
$SHIOCT: .WORD 0 7ZHIGH ORDER BITS GO HERE 
.SBTTL TRAP DECODER 


PEELED Ltd delalalalahelatalalaialalabalabebebabetaletebelebabelpheel 
[*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


STRAP: 2(SP) ,=(SP) ASSUME THE STATUS OF 
#20, (SP) ee THE CALLER=-DO NOT ALLOW 
#1$,-(SP) 33: T-BIT TRAPS 
73SET THE NEW STATUS 
1$: RO,-(SP 73SAVE RO 
2(SP) ,RO 2 3GET TRAP ADDRESS 
-(RO) sBACKUP BY 2 
(RO) ,RO 33GET RIGHT BYTE OF TRAP 
POSITION FOR INDEXING 


wae CC 
EEE 32 


e¥ 


BAARRARARRALLP PLE PERLE PRE LE REE EERE ER EL EEE REL EREEEEEE 


R 
STRPAD(RO).RO :: INDEX TO TABLE 
RO 3:GO TO ROUTINE 


3zTHIS IS USE TO HANDLE THE ''GETPRI** MACRO 


$TRAP2: MOV (SP) ,=(SP) ;zMOVE THE PC DOWN 
MOV 4(SP) ,2(SP) 7zMOVE THE PSW DOWN 
RTI 7 sRESTORE THE PSW 


-SBTTL TRAP TABLE 


*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE "‘TRAP’’ INSTRUCTION. 


$TRPAD: . S$TRAP2 

$ 32 CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
:CALL=TYPOC TYPE OCTAL NUMBER (WITH LEADING ny a 
3; CALL=TYPOS ( ING 
;-CALL=TYPON ) 
3; CALL=TYPDS DECIMAL NUMBER (WITH SIGN) 
;;CALL=TYPBN TRAP+6(104406) TYPE BINARY (ASCII) NUMBER 


3; CALL=GTSWR TRAP+7(104407) GET SOFT-SWR SETTING 
32 CALL=CKSWR TRAP+10(104410) TEST FOR CHANGE IN SOF T-SWR 


MMM AAAI aA 
UU UA UA UA ALA 
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SRDCHR 2s CALL=RDCHR ) TTY TYPEIN CHARACTER ROUTINE 
SRDLIN ; ) TTY TYPEIN STRING ROUTINE 
$RDOCT ;;CALL= ) READ AN OCTAL NUMBER FROM TTY 
SSAVREG :;CALL=SAVREG ) SAVE RO-R5 ROUTINE 
SRESREG ; ;CALL=RESREG ) RESTORE RO-R5 ROUTINE 

-SBTTL POWER DOWN AND UP ROUTINES 


BORER ISOS IID IIE IIDIOIIIOIUIIIUIIIIOIIIUUIIOUIUIDIIDII I tint 
;POWER DOWN ROUTINE 
SPWRDN: MOV MSILLUP ,@#PWRVEC ;;SET FOR FAST UP 
#340, a#PWRVEC+2 + ¢PRIO 0:7 
) H RO ON STACK 


@SWR ON STACK 
>; SAVE SP 
#SPWRUP , AAPWRVE C +3 SET UP VECTOR 
.~2 7 HANG UP 


‘3 RARER AEE EERE EREEKKEE 


“POWER UP ROUTINE 
: W#SILLUP aAPURVEC :2SET FOR FAST DOWN 
WAIT LOOP FOR THE TTY 
1$: WAIT FOR THE INC 
1$ =: OF WORD 


114316 (SP)+,aSWR 
(SP)+,R5 
(SP)+,R4 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO :zPOP STACK INTO RO 
#SPWRDN, Q#PWRVEC iZSET UP THE POWER DOWN VECTOR 
#340, @APWRVEC+2 37PRIO:7 
sREPORT THE POWER FAILURE 
SPWRMG: .WORD SPOWER +: POWER FAIL MESSAGE POINTER 


SILLUP: 23 THE POWER UP SEQUENCE WAS STARTED 
BR 72 32 BEFORE THE POWER DOWN WAS COMPLETE 
$SAVR6: 0 ;3PUT THE SP HERE 
047520 042527 $POWER: .ASCIZ <15><12>' POWER’ 


-EVEN 
-SBTTL APT COMMUNICATIONS ROUTINE 


DISS IO I IIIOIIIUIIDIOOISISIOIIDISIIIIDIOIIDIOUIOIOIOIIUIOIIDIUIIDIDIUIDIDIOIIDO OOS 
112737 SATY1: MOVB #1,SFFLG 72TO REPORT FATAL ERROR 
112737 SATY3: MOVB A A tht 3:TO TYPE A MESSAGE 
000403 BR SAT 
112737 eure MOVB ai, $FFLG 32TO ONLY REPORT FATAL ERROR 
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065154 
000001 
000100 
000904 
000002 
001222 
001236 
001236 
001240 
000004 


MACY11 eh to 


001224 
000004 


N 
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COMMUNICATIONS ROUTINE 


$MFLG: 
SLFLG: YTE 
SFFLG: y 


APTSIZE= 300. 


APTCSUP=040 


RO,-(SP) 
R1,-(SP) 
SMF LG 


5$ 
MAPTENV, SENV 


 eeteperemenk 
a4 (SP) ,RO 
#2,4(SP) 
ee 


1 
RO, S$MSGAD 
(RO) + 


2s 

SMSGAD ,RO 
RO 

RO, $MSGLGT 
Catach 


a4(SP) ,4$ 
#2,4(SP) 
177776,-(SP) 
——"* 


SFFLG 

12$ 

SENV 

12$ 

SMSGTYPE 

11$ 

a4 (SP) ,SFATAL 
#2,4(SP) 
SMSGTYPE 


SFFLG 
$LFLG 
SMFLG 
(SP)+,R1 
(SP)+,RO 
PC 

0 


0 
0 


7 
PAGE 298 


SEQ 0298 


; PUSH RO ON STACK 

7 PUSH R1 ON STACK 

;; SHOULD TYPE A MESSAGE? 
sz1F NOT: BR 

ae moth UNDER APT? 


7:SHOULD SPOOL MESSAGES? 
NOT: BR 


1 
3iGET MESSAGE ADDR. 
; ;BUMP RETURN ADDR. 
73 SEE IF DONE W/ LAST XMISSION? 
3IF NOT: WAIT 
::PUT ADDR IN MAILBOX 
33FIND END OF MESSAGE 


3;SUB START OF MESSAGE 


TELL APT TO TAKE MSG. 


::PUT MSG ADDR IN JSR LINKAGE 
BUMP RETURN ADDRESS 
: :PUSH 1996. ON STACK 
“CALL TYPE MACRO 


;zSHOULD REPORT FATAL ERROR? 
:c:IF NOT: BR 


: ; «RUNNING UNDER APT? 
:IF NOT: BR 
: FINISHED LAST MESSAGE? 
NOT: WAIT 


:GET ERROR # 
;BUMP RETURN ADDR. 

77 TELL APT TO TAKE ERROR 
72CLEAR FATAL FLAG 
3: CLEAR LOG FLAG 
:zCLEAR MESSAGE FLAG 
:zPOP STACK INTO R1 
;:POP STACK INTO RO 
7 RETURN 
: sMESSG. FLAG 

G FLAG 
+S FATAL FLAG 


On i a ah 
RAR RRVK RMR RS SRST SSR Aaa 
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CONSOLE MESSAGES 


BEX 
ASCII @a 
000 : .ASCIZ a=a 
025012 000 : .ASCIZ <CR><LF>a*d 
000 -ASCIZ a7a 


052012 050131 “<CR><LF>@TYPE HELP TEXT (Y OR N)?2a 


<CR><LF>@CHANGE RMO3 UNIBUS ADDRESS OR yee ADDRESS (Y OR N)<CR> ?7@ 
eASCIZ <CR><LF>@USE SAME DEVICES (Y OR N) ?7?8 
: <CR><LF>@RMO3 BUS ADDRESS (a 
CNSLO2: .ASC <CR><LF>@ENTRY NOT IN 1/0 PAGE@ 
ASC <CR><LF>@ADDRESS MUST BE 4 ee 
CNSLO3: <CR><LF>@RMO3 VECTOR ADDRESS ( 
CNSLO4: <CR><LF>@ENTRY OUT OF GEa 
. <CR><LF>@ADDRESS MUST BE <1000a 
CNSLOS: . <CR><LF>@RMO3 INTERRUPT PRIORITY (@ 
ts <CR><LF>@ENTRY OUT OF RANGEO 


<CR><LF>ATYPE (A) TO TEST ALL DEVICES, OR TYPE DEVICE@ 
@ NUMBER(S)a 
<CR><LF>@TERMINATE INPUT WITH CARRIAGE RETURN@ 
ee <CR><LF>/NOT EXIST DRIVE / 


-EVEN 
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MESSAGES 


OPI 

OPI!ATA!ILF! IVC 
ATA! OPI! IVC! IAE 
ATA! OPI! IVC 


OPI 

OPI! IVC 
OPI!ATA! IVC 
OPI!ATA! IVC 
OPI 


OPI 

OPI!ATA!ILF ! IVC 
OPI!ATA!ILF! IVC 

ATA! OPI! IVC! IAE 
OPI!ATA!ILF ! IVC 

OPI !ATA!ILF! IVC 
OPI!ATA!ILF! IVC 
OPI!ATA!ILF! IVC 
OPI!ATA!ILF! IVC 
OPI!ATA!ILF! IVC 
OPI!ATA!ILF! IVC 

WCE!OPI! IVC! JAE! AOE! HCE !ECH 
WCE! OPI! wee 'ECH 


OPI! IVC!WLE! IAE! AOE !HCE 
OPI! IVC!WLE! IAE ! AOE 
OPI!ATA!ILF!IVC 
OPI!ATA!ILF! IVC 

OPI! IVC! JAE!AOE!HCE!ECH 
OPI! IVC! IAE!AOE ! HCE! ECH 
OPI!ATA!ILF!IVC 
OPI!ATA!ILF! IVC 


Wwofn— 
NMIOre 28 © 8 
° 


RS 
Go 


VIN AW NWO 
—\Nw— Vie * 8 
—UWI~se 2 

se 8 


FUNCTION CODE TABLE 


;NOP 
Z ILLEGAL FUNCTION (2) 
SEEK 


;RECALIBRATE 
:DRIVE CLEAR 
RELEASE 


: OF FSET 

RETURN TO CENTERLINE 

;READ IN PRESET 

;PACK ACKNOWLEDGE 
FUNCTION 
FUNCTION 


FUNCTION 


ILLEGAL FUNCTI 
sWRITE CHECK DATA 


WRITE CHECK HEADER AND DATA 
ILLEGAL FUNCTION (54) 
ILLEGAL FUNCTION (56) 


{WRITE DATA 


WRITE HEADER AND DATA 


TILLEGAL FUNCTION (64) 
ILLEGAL FUNCTION (66) 
zREAD DATA 


READ HEADER AND DATA 
7 ILLEGAL FUNCTION (74) 
7 ILLEGAL FUNCTION (76) 
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mek mek ms mei Mm mM MIM mI MI MIM mi Ms MIA iM A As Ri ALAA 


ee ee ed ed ed ad ot ad at 0d ot ot tt I ot I OS oO I I 


3 
31 
15 
7. 
x. 
1 
0 
0. 
1 
i 
4 
8 
1 
3 


Rs 


ene vin— 
SEQNSS 
fe +] 2 


SSPESSSBEREORORES 


SS Ss Ss Ss SS Ss SS SS SI Ss YS HY 22 OO 
8 
N 


33 





C 
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C. 21-AUG-78 09:19 


# 


15 


2228 


et ot at at ot ot ot at ot ot 2 tt et It 


eee ee ee ee el ee ee el ee ee ee ed ee ed ed ed ed od od od 
LAL RL RL RL RI ALR LAL ALL LALA LALLA LALA AAU AULA UA nnn 


DV PUP PVPS SDTV ST TTT TT TTT 
BBIFAKRUSSSVSVRARAPLSSaIVSARANASSRIKSK 


— 
= 
o 


Zz 
Z 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
151 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


me mek ke ed rd a ed a a = ot oo I I I 


077777 
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077777 


177777 


15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
15 
1§ 
15 
15 
1§ 
1§ 
1§ 
1§ 
Lp 
1§ 
1§ 
1§ 
LP 
1§ 
" 
18 
18 
1§ 
1§ 
1f 
1§ 
" 
1§ 
1f 
1§ 
js 
" 
7; 
| 
1§ 
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-EVEN 


101744 074626 000000 EMT1: .WORD &MS300,EMS 
102032 EMT2: .WORD &MS301, “Ees30o, EMS303,EMS1,EMS304 


104331 «WORD EMS511,EMS500,EMS501 ,EMS502,EMS503,0 
000000 


102005 EMT3: .WORD &MS301,EMS306,EMS302 
104331 -WORD &MS511,EMS505,EMS501,EMS502,0 


102066 EMT4: EMS300 ,EMS302,EMS307,EMS2 
104331 EMS511,EMS502,EMS501,EMS503,0 


102144 EMTS: . EMS301 ,EMS310,EMS311 
104331 EMS511,EMS502,EMS501,EMS503,EMS504 


— 


LSBRLEARATASITY 


oO 
= 


a MS312,0 
102144 EMT6: . MS301 ,EMS306,EMS311 
104331 EMS511 “EMS502, EMS5O1, EMS503,EMS504 ,0 


000000 
102005 EMT7: EMS301,EMS313,EMS302 
104356 EMS511,EMS501,EMS502,EMS504 ,EMS503,0 


000000 
102277 EMT10: . EMS316,EMS317,EMS314 
104356 ! EMS511,EMS501,EMS502.0 


102375 102326 EMT11: EMS316,EMS317,EMS315 
104331 104356 EMS511,EMS501,EMS502,0 


102415 102277 EMT12: EMS316,EMS320,EMS314 
104331 104356 EMS511,EMS501,EMS502,0 


102415 102326 EMT13: . EMS316,EMS320,EMS315 
104331 104356 ° EMS511,EMS501,EMS502,0 


102435 102277 EMT14: . EMS316,EMS321,EMS314 
104331 104356 EMS511,EMS501,EMS502,0 


102435 102326 EMT15: EMS316,EMS321,EMS315 
104331 104356 . EMS511,EMS501,EMS502,0 


102455 102277 EMT16: . EMS316,EMS322,EMS314 
104331 104356 ° EMS511,EMS501,EMS502.0 


102455 102326 EMT17: . EMS316,EMS322,EMS315 
104356 . EMS511,EMS501,EMS502.0 


~~ oo 
RAS 


a ee ee ee ee ee ee eS Se Sr 
PUPA SVT IAI TA OT IIT I 


MMMM 


101232 EMT20: . Ate eine -EMS250 


000000 ° EMS 31 2.£MS326,0 
101232 EMT21: EMS301, EMS398, EMS250 
EMS511,EMS504 
000000 ° EMS312,EMS325,0 
101232 EMT22: . EMS301, EMS313. EMS250 
000000 EMS511,EMS504 ,0 


me ee mek me mek me ek me ek ed ed ed ed ed to ot ot ot = oO Oo 


MMMM AA MIA aA A aA A aA VI 
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101762 102514 101270 EMT23: EMS301 ,EMS324,EMS251 
104750 104331 511 gts 


000000 
101270 EMT24: 


000000 
101270 EMT25: 
000000 
AF Se: EMT26: . EMS301, “EMS 306, EMS252,EMS253,EMS327,EMS254 
104331 EMS511,EMS503,EMS501,EMS502 
000000 EMS330,EMS314,0 
300 ,EMS252 

000000 

_ 00,EMS252 
104451 EMS511,EMS501,EMS504,0 


: EMS300 ,EMS252 
104425 EMS511,EMS501,EMS503,0 


101334 2 6 EMS301 ,EMS324 ,EMS252 
000000 EMS511,EMS501, 

101334 i « EMS 301, EMS324.EMS252 
104451 ° EMS511,EMS501,EMS504 ,0 


102514 101334 : EMS301 ,EMS324 ,EMS252 
104331 104425 EMS511,EMS501,EMS503,0 


102475 101334 : .WORD €MS301,EMS323,EMS252 
000000 1 
101334 
000000 
101463 
000000 “EMS 326, 
101463 : MS301.EMS323,EMS255 
MS511.EMS504 
000000 EMS312.EMS325,0 
101463 : EMS301. EMS313. EMS255 
000000 EMS511.EMS504, 
101232 : EMS301, Ems323 EMS250,EMS327,EMS255 
104331 EMS511,EMS504 ,EMS501,EMS503.0 
EMS300, EMS 3 
000000 ; EMS511 MS501,0 
101367 a. MS331. Emse EMS253 
000000 emesi 1. *—£MS501,0 
101744 : EMS300,EMS253 
104750 104425 EMS511.EMS501,EMS503,0 
000000 


101744 P< EMS300 ,EMS253 
104750 104451 ° EMS511,EMS501,EMS504 .0 
000000 
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CZRMJCO RMO3/2 DSKLS PRT 1 MACY11 30A(1052) 
CONSOLE CZRA 


CZRMJC.P11 21-AUG-78 09:19 ME 


EMT47: EMS301 ,EMS324,,EMS253 
EMS511,EMS501,EMS503 
EMS312,EMS326,0 


067644 101367 
104425 
000000 
101367 EMTSO: EMS301 ,EMS324 ,EMS253 
104451 EMS511,EMS501,EMS504 
101367 
000000 


EMS312,EMS326,0 


102475 EMT51: EMS301 ,EMS323,EMS253 
104331 EMS511,EMS501 
102210 102534 EMS312,EMS325,0 


101762 102246 101367 EMTS2: EMS301 ,EMS313,EMS253 
104331 000000 EMS511,EMS501,0 


075013 101525 EMT53: . EMS331,EMS4 ,EMS256 
104331 000000 EMS511,EMS501,0 


102514 101525 EMT54: EMS301 ,EMS324 ,EMS256 
104331 EMS511,€MS501 
102210 102545 000000 . EMS312,EMS326,0 


101762 102475 101525 EMTSS: EMS301 ,EMS323,EMS256 
104750 EMS511,EMS501 
102210 000000 . EMS312,EMS325.0 


101762 102246 101525 EMTS6: EMS301 ,EMS313,EMS256 
104750 104331 000000 ° EMS511,€MS501,0 


101555 102632 EMTS7: . EMS257,EMS332 
104750 104550 104331 EMS511,EMS506,EMS501 ,0 


Ezz 


SSEsssy 


075044 102650 EMT60: . EMSS ,EMS333 
104750 104605 104331 . EMS511,EMS507,FMS501,0 


101762 102514 101611 EMT61: EMS301 ,EMS324,EMS260 
104750 104331 EMS511,EMS501 
102210 102545 000000 ° EMS312,EMS326,0 


102475 101611 EMT62: EMS301 ,EMS323,EMS260 
° EMS511,EMS501 
070116 102210 000000 EMS312,EMS325,0 


070124 101762 102246 101611 EMT63: . EMS301 ,EMS313,EMS260 
070132 104750 104331 000000 . EMS511,EMS501,0 


070140 101744 075365 EMT64: EMS300.EMS12 
070144 104750 104331 000000 EMS511,EMS501,0 


070152 075365 102674 102772 EMT65: . EMS12,EMS335 EMS 342 
070160 104750 104331 000000 ° EMS511,EMS5C1,0 


070166 075365 102717 102772 EMT66: EMS12,EMS336,EMS342 


5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 


SER SENS Ss roaransceeee 


AAAI) 
ietetete 
SBEtES 


KY 
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070174 104750 104331 000000 -WORD &MS511,EMS501,0 
101744 075114 EMT67: .WORD EMS300,EMS6 
104750 104331 -WORD &MS511,EMS501 
075160 102650 000000 . EMS7,EMS333,0 
101744 075114 102555 EMT70: . EMS300 ,.EMS6,EMS327,EMS7 
075160 


104750 104331 104451 . EMS511,EMS501,EMS504,0 
000000 


BIASES 


075114 102674 102752 $s EMS6,EMS335 ,EMS340,EMS10,EMS333,EMS342 
075231 102650 
104750 104331 ° EMS511,EMS501,EMS502,0 


WWW 
yw 
a 


075114 102717 seo ; EMS6,EMS336,EMS340,EMS10,EMS334 ,EMS342 
104356 . EMS511,EMS501,EMS502,0 


Hake 4 101611 102032 : EMS301 ,EMS260,EMS303,EMS11 
104750 104331 104356 . EMS511,EMS501,EMS502,0 
000000 


SORE SERS ESSE 


103024 103040 102772 EMT74: . EMS343,EMS344 ,EMS342,0 
000000 


& 
0 


yh hb hh hy hy yk hy hy yh yh tt 
NSN 
o 


Ww 
N 
— 


101744 075443 EMT75: EMS300,EMS13 
104750 104425 000000 EMS511,EMS503,0 


103115 075443 103067 EMT76: . EMS346,EMS13,E£MS345 
104750 104425 000000 ‘ EMS511.EMS503,0 


102736 075443 103067 EMI77: . EMS337,EMS13,EMS345 
104750 104425 000000 EMS511.EMS503,0 


101762 102246 101422 EMT100: . EMS301,EMS313,EMS254,—EMS347 ,EMS13 
103133 075443 

104750 104425 000000 ° EMS511,EMS503,0 

103115 075512 102763 €EMT101: EMS346,EMS14,EMS341.EMS15 


104425 104331 ° EMS511,EMS503,EMS501.0 


Mv 
yuk 
WN 


wv 
wa 
aw 


075512 102763 EMT102: EMS337,EMS14 ,EMS341,EMS15 
104425 104331 ° EMS511,EMS503,EMS501 0 


SSEESSRERESS 


102246 101422 EMT103: EMS301,EMS313,EMS254 ,EMS347,EMS15 


075557 
+ ¢ 2 EMS511,EMS505 


425 , 
02632 000000 ° EMS14 ,EMS332,0 


1 
1 
1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


OAAAAAAMAM AVIA a I 
Ww 
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1032 075716 102763 EMT104: .WORD &MS346,EMS17,EMS341,EMS16 

104331 «WORD &MS511,EMS503,EMS501,0 


075716 102763 EMT105: . EMS337,E£MS17,EMS341,EMS16 

104425 104331 ' EMS511,£MS503,EMS501,0 

102246 101422 EMT106: . EMS301,.EMS313,EMS254,EMS347,EMS16 
075716 108682 000000 ; Es? Ene330,0 
103115 075757 102763 EMT107: . EMS346,EMS20,EMS341,EMS21 


104425 104331 . EMS511,EMS503,EMS501.0 


FFEKLE 


yw 
> 


075757 103161 076023 EMT110: . EMS20,EMS351,EMS21,EMS350,EMS22,EMS315 
103154 102326 
104750 31 000000 ° EMS511,EMS501,0 
075757 102664 103154 EMT111: . EMS20 ,EMS334 ,EMS350,EMS22,EMS333 
000000 ° EMS511,EMS501,0 
075757 102763 EMT112: EMS337 ,EMS20,EMS341,EMS21 


104425 104331 . EMS511,EMS503.EMS501,0 


geeee 


ee ke kd ad ad at ad at 
wi 
& 

SWN— 


¥ 
Le) 


15425 
15426 
15427 
15428 
15429 
15430 
15431 


— 


LEVEL 
Yinntis 


075757 102763 EMT113: EMS337,EMS20,EMS341,EMS21,EMS350,EMS22,EMS334 
ororie 103154 076102 


1 02664 
070712 104331 000000 EMS511,€MS501,0 

103177 076023 EMT114: EMS20,EMS352,EMS21,EMS350,EMS22,EMS333 
076102 102650 
104331 000000 ° EMS511,€MS501,0 
ease 101422 EMT115: . EMS301,EMS313,EMS254 ,EMS347,EMS21 

104750 104425 EMS511,EMS503 

075757 102632 000000 EMS20,EMS332,0 

103115 076147 102763 EMT116: . EMS346.,.EMS23,EMS341,EMS24 


104425 104331 ° EMS511,EMS503,EMS501.0 


SESREERESSE SS 


076147 102763 ts EMS337 ,EMS23,EMS341,EMS24 
671016 104750 104425 104331 ° EMS511,EMS503,EMS501,0 


~~ 3 os SH Ss SS Ss - 2 HD I DS St 


sass 
wr 
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15454 
15455 
54 


15456 
15457 
15458 
15459 
15 


BREESE 


g 


ee ed nk at et as = 
eeee 
SESS 


4 


8 


SEleoRaTcs 


071024 
orrece 


071052 
071060 
071062 
071070 
071072 
071100 
071102 
071110 


071112 


071146 
071154 
071162 
071166 


071174 


071270 
orale 
071300 
071304 
071312 
071320 
071324 
071332 


21-AUG-78 09:19 


000000 
101762 
103133 
104750 
076147 
103115 


076505 
102736 
076505 
104750 


101762 


076565 
104750 
000000 


076636 
104750 
000000 


103272 
102763 
104750 


103272 


102246 
076225 
104425 
102632 


076304 
104425 


076304 
104425 


102246 
076362 
104425 
102632 


102326 
076441 
104425 


102246 
076505 
104425 
102632 


103237 
104451 


103237 
104451 


076716 
076505 
104451 


076755 
076505 
104451 


075013 


8 
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101422 


000000 
102763 
104331 


102763 
104331 


101422 


000000 
102066 
000000 
103213 
000000 
102763 
000000 
101422 


000000 
101232 
104425 


101232 
104425 
101232 
000000 
101232 
000000 
101463 


ONSOLE MESSAGES 


EMT120: 


EMT121: . 


EMT122: 


EMT123: 


EMT124: 


EMT125: 


EMT126: 


EMT127: 


EMT130: 


EMT131: . 


EMT132: 


EMT133: . 


EMT134: . 


EMS301,EMS313,EMS254 ,EMS347 ,EMS24 


EMS511,EMS503 
EMS23,EMS332,0 


EMS 346 ,EMS25 ,EMS341,EMS26 
EMS511,EMS503,EMS501,0 


EMS337 ,EMS25 ,EMS341,EMS26 
EMS511,EMS503,EMS501.0 


EMS301 ,EMS313,EMS254 ,EMS347 ,EMS26 


EMS511,EMS503 
EMS25 ,EMS332.0 


EMS300 ,EMS27,EMS307 ,EMS2 
EMS511,EMS503,0 

atte EMS27 ,EMS353 
EMS511,EMS503 

EMS30,£MS315,0 

EMS337 ,EMS27 ,EMS341 ,EMS30 
EMS511,EMS503,0 

EMS301 ,EMS313,EMS254 ,EMS347,EMS30 


EMS511,EMS503 
EMS27 ,EMS332.0 


EMS31 ,EMS354,,EMS250 
EMS511,EMS504,EMS503,0 


Ems i ENSSO4 EMSSO3, 0 
EMS355,EMS33,EMS250,EMS341,EMS30 
EMS511,EMS504,0 
EMS355,EMS34,EMS250,£MS341.EMS30 
EMS511,£MS504,0 
EMS331,EMS4.EMS255 





CZRM 
CZ7RM 


CZRMJCO RMO3/2_ DSKLS PRT 1 


CZRMJC.P11 


ee ee ee ee ee 
DPA AAAI AAAI TIT TUT 
PAA AAAA VAI UT 
a8) MR) 2 a SS 
LS SMNAARANAO 


071340 


071346 
071354 
071356 


071364 
071370 
071376 


071414 
071422 
071426 


071434 
071442 


071450 
071456 
071460 


071466 
071474 


071502 
071510 
071516 


071524 
071532 
071540 
071546 
071554 
071562 


071564 
071570 


071576 
071604 
071612 


071620 
071624 


071632 
071640 
071646 


071654 
071660 


21-AUG-78 09:19 


104750 


077013 
075557 
104750 


101642 
104750 


101744 


077223 
101334 
104750 


101762 
104750 
000000 
103516 
104750 


103541 


077353 
104750 


103541 
077055 
104750 


104451 
103334 
104331 


103432 
104425 


077055 
104331 


077105 
076505 
104451 


077145 
104451 


077145 
104451 


102127 
104331 


077223 
102555 
104331 


103237 
103511 
104331 


102052 
104331 


077271 
104425 


103213 
103237 
104425 


077055 
104331 


103237 
104331 


103213 
103611 
104425 


Mm 8 
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000000 
103356 
000000 


000000 
102066 
000000 
101463 
000000 


102763 


103511 
074746 
000000 


000000 
103511 
000000 


CONSOLE MESSAGES 


EMT135: 


EMT136: 


EMT137: 


EMT140: 


EMT141: 


EMT142: . 


EMT143: . 


EMT144: 


EMT145: 


EMT146: 


EMT147: 


EMT150: 


EMT151: . 


EMT152: 


EMT153: 


EMS511,EMS504 ,0 
EMS35 ,EMS357,EMS360,EMS15 
EMS511,EMS501,0 


EMS261 ,EMS362 
EMS511,EMS503,0 


EMS300 ,EMS36,EMS307,EMS2 
EMS511,€MS591,0 

EMS355 ,EMS37,EMS255 ,EMS341,EMS30 
EMS511,EMS504 ,0 


EMS346,EMS40,EMS345 
EMS511,EMS504,0 


EMS337 ,EMS40,EMS341,EMS30 
EMS511,EMS504 ,0 


EMS363,EMS310,EMS41 
EMS511,EMS501,0 


EMS337,EMS41,EMS341,EMS252,EMS327.EMS253 
EMS511,EMS501,0 

EMS41,EMS354,.EMS364 ,EMS252,EMS365 ,EMS253 
EMS511,€MS501,0 

Ess] “EMSS01 CEMSS03,0 

EMSS11 cEMSSO3,0 
EMS367.EMS353,EMS365,.EMS42,EMS354 ,EMS3 
EMS511,EMS503,0 


EMS337 ,EMS36 
EMS511,€MS501,0 


EMS43,EMS354 ,EMS36 
EMS511,EMS501,0 


EMS367 ,EMS353,EMS365 ,.EMS36,EMS370 
EMS511,£MS503,0 


SEQ 0310 
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071666 
071674 
071700 


071706 
071714 
071716 
071724 
071732 
071740 
071746 
071754 
071756 
071764 
071772 
072000 
072006 
072014 
072022 
072024 


072032 


072050 
072056 
072064 
072072 
072100 
072106 
072114 


072202 
072206 


21-AUG-78 09:19 


103541 


101744 
074677 
104750 


103541 


077013 
101744 


077013 
077223 
104750 


077624 


101744 
074677 
104750 
000000 


077664 
077055 
104750 
000000 


102736 
104750 


103213 


077424 
104425 
103213 
103237 
104425 
077465 
104425 


103213 


102650 
077542 
104425 
077542 
104425 


102674 


102674 
102674 
104331 
077013 
104331 
102650 
077624 
104331 
1026°°4 


102650 
104331 


077013 
104331 


MACY11 30A(1052) 
CONSOLE MESSAGES 


EMT154: 


103511 
000000 
102066 
000000 
103511 
906000 
102066 
000000 
103511 


103213 
104331 


102736 
103655 
000000 


102736 
103655 
000000 


102555 
103655 


102066 
104425 


102752 
104425 


000000 


EMT155: 


EM7T156: . 


EMT157: 


EMT160: . 


EMT161: 


EMT162: . 


EMT163: . 


EMT164: . 


EMT165: . 


EMT166: . 


EMT167: . 


N 8 
21-AUG-78 09:22 PAGE 311 


. WORD 


EMS367,EMS353,EMS365 ,EMS36,EMS371 
EMS511,EMS503,0 

EMS300 ,EMS44 ,EMS307 ,EMS2 
EMS511,€MS503,0 

EMS 367 ,EMS353,EMS365 .EMS44 ,EMS354 ,EMS3 
EMS511,EMS503,0 

EMS300,EMS45 ,EMS307 ,EMS2 
EMS511,EMS503,0 

EMS367 ,EMS353,EMS365 .EMS45 ,EMS354 ,EMS3 


EMS511,€MS503,EMS501 
EMS35 ,EMS333,0 


EMS300,EMS46,EMS307,EMS2 
EMS511,EMS503,0 

EST ASSES S53 

EMS35 ,EMS335,EMS337,EMS41,EMS334,EMS372 
EMS511,EMS501,0 

EMS47 ,EMS335,EMS337,EMS41,EMS335,EMS372 
EMS511,EMS501,0 
EMS337,EMS35,EMS327,EMS47 

Ese EMS333_EMS372,0 
EMS300,EMS47,EMS307.EMS2 
EMS511,£MS501,EMS503,0 


EMS50,EMS335,EMS340,EMS36,EMS333 
EMS511,EMS501,EMS503,0 


EMS337,EMS35 
EMS511,EMS501,0 


SEQ 0311 





CZRM 
CZRM 
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CZRMJCO RMO3/2_DSKLS PRT 1 MACY11 30A(1052) 21-AUG-78 09:22 PAGE 312 SEQ 0312 
CONSOLE MESSAGES 


CZRMJC.P11 21-AUG-78 09:19 


072214 077664 076755 074746 EMT171: .WORD &MS50,EMS34,EMS3 
072222 104750 104331 000000 “WORD EMS511,€MS501,0 


101762 102052 077733 EMT172: .WORD &MS301,EMS306,EMS51 
104750 104331 104451 «WORD EMS511,EMS501,EMS504,0 
072244 000000 


072246 103541 103511 EMT173: EMS367 ,EMS353,EMS365 ,EMS47 ,EMS354 ,EMS3 
072254 077624 074746 
072262 750 000000 EMS511,€MS501,0 


072270 101744 102555 EMT174: EMS300 ,EMS250,EMS327,EMS255 ,EMS327 ,EMS256 


072276 101525 
072304 5047 EMS341 ,EMS600 
072310 000000 ° EMS511,EMS501,0 


Oreete 102763 EMT175: EMS300 ,EMS256,EMS341 ,EMS600 
072326 000000 ° EMS511,€MS501,0 


101232 102763 &MT176: EMS300 ,EMS250,EMS341,EMS600 
104451 000000 . EMS511,EMS504,0 
072352 101744 101463 102763 EMT177: EMS300 ,EMS255 ,EMS341,EMS600 
072360 105047 
072362 104750 104451 000000 EMS511,EMS504,0 
072370 102736 100002 102763 EMT200: EMS337 ,EMS52,EMS341,EMS601 
072376 105077 . 
072400 104750 104331 000000 ° EMS511,EMS501,0 
072406 103115 100002 102763 EMT201: . EMS346,EMS52,EMS341,EMS602 
072414 105117 
072416 104750 104331 000000 . EMS511,EMS501,0 
072424 103115 077733 102763 EMT202: EMS346 ,EMS51,EMS341,EMS602 
072432 105117 
072434 104750 104331 000000 EMS511,EMS501,0 
072442 103115 apy | 103067 EMT203: EMS346,EMS52,EMS345 ,EMS373,EMS255 


104451 104331 ° EMS511,EMS504,EMS501,0 


SSEE 


100002 102763 EMT204: EMS346,EMS52,EMS341,EMS27 
104451 104331 EMS511,EMS504 ,EMS501,0 


se88e 


072502 


AO 
NN 


072504 100043 103237 074746 EMT205: EMS53,EMS354,EMS3 
072512 104425 * EMS511,£MS503,—EMS502,EMS510,0 
072520 000000 


072524 2 100104 
072532 101232 102555 


RRRRH 
JAAR 


EMT206: . EMS337 ,EMS54 ,EMS374 ,EMS250,EMS327 ,.EMS255 





. 
CZRMJCO RMO3/2_ DSKLS PRT 1 MACY11 30A(1052) 21=AUG-78 09:22 PAGE 313 SEQ 0313 
CZRMJC.P11 21-AUG-78 09:19 CONSOLE MESSAGES 


072540 102555 074746 -WORD EMS327,EMS3 
orSees 104750 104451 104331 «WORD EMS511,EMS504,EMS501,0 


072554 103237 074746 EMT207: .WORD EMS54,EMS354,EMS3 
072562 104331 000000 "WORD €MS511,EMS501,0 


072570 103237 103470 €EMT210: EMS54 ,EMS354 ,EMS364 ,EMS250 
075600 104451 000000 EMS511,EMS504 ,0 
072606 103237 103470 EMT211: . EMS54 ,EMS354 ,EMS364 ,EMS255 
O7o616 04750 104451 000000 EMS511,EMS504 ,0 


072624 100161 EMT212: . EMS337,EMS55 
104451 000000 EMS511,EMS504,0 


102664 103067 EMT213: EMS56,EMS334 ,EMS345 ,EMS373.EMS262 ,EMS327,EMS251 
101701 102555 


104331 . EMS511,EMS501 
102674 000000 EMS56,EMS335,0 


072666 100237 EMT214: EMS337 ,EMS56 
072672 104331 000000 ° EMS511,EMS501,0 


072700 102650 103154 EMT215: EMS57 ,EMS333,EMS350,EMS60 ,EMS334 
072706 100416 102664 
072712 104331 000000 EMS511,EMS501,0 


072720 102052 075044 EMT216: EMS363 ,EMS306,EMS5 
072726 104331 000000 . EMS511,EMS501,0 


072734 102052 100470 EMT217: EMS363,EMS306,EMS61 
072742 104331 000000 ° EMS511,EMS501,0 


072750 102650 103744 EMT220: EMS62 ,EMS333,EMS375 ,EMS251 
104331 000000 EMS511,EMS501,0 
102650 103760 EMT221: EMS62 ,EMS333,EMS376,EMS262 
104331 000000 EMS511,EMS501,0 
102650 103760 EMT222: EMS62 ,EMS333,EMS376,EMS250 
104331 000000 EMS517 ,EMS501,0 
100543 102763 EMT223: EMS346,EMS62 ,EMS341 .EMS603 
104331 000000 EMS511,EMS501,0 
100624 103760 EMT224: EMS346,EMS63,EMS376,EMS262 
104331 104425 . EMS511,—MS501,EMS503,0 


SSSR as 


MMMM MI AM a I UW UU) 
IIAIIVIAVAVAAA 
OBNANRWN=0 


Ww 
NSSRNNNS 
NOUESWIN = 


~S 
\ 
on 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
15 


pet ttt PPP Pt tt ttt ttt ttt ttt tl 444444444 
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000000 
1ooees 102650 EMT 225: EMS63,EMS333,EMS350,EMS363,EMS310,EMS262 
104750 EMS511,EMS501,0 
073102 100624 EMT226: . EMS63.EMS357,EMS36,EMS372 
O73112 104750 EMS511 ,EMS501.0 
iss) 103314 103356 EMT227: . EMS63,EMS356,EMS360,EMS15 
104750 104331 000000 EMS511,EMS501,0 
i0Ges 103314 103404 EMT230: EMS63,EMS356,EMS361,EMS15 
104750 104331 000000 EMS511,€MS501,0 


073154 100624 103314 077223 EMT231: EMS63.,EMS356,EMS41 
073162 104750 104331 000000 ° EMS511,EMS501,0 


073170 077223 5 = sh 102772 EMT232: EMS41,EMS377 ,EMS342,EMS365 ,EMS63,EMS332 
073176 103511 100624 102632 
073204 104750 104331 000000 ° EMS511,EMS501,0 


073212 103541 103213 103511 EMT233: EMS367 ,EMS353,EMS365 ,EMS63,EMS401 
0732 100624 104022 

104750 104425 104331 EMS511,EMS503,EMS501.,0 

000000 


075635 103774 103655 EMT234: EMS16,—MS377,EMS372,EMS365 ,EMS64 ,EMS354 ,EMS3 
100664 103237 


104425 104331 EMS511,EMS503.EMS501,0 


100734 102066 €EMT235: EMS300 .EMS65 ,EMS307,EMS2 
104356 104425 EMS511,EMS502,EMS503.0 


103774 103760 : EMS56,EMS377,EMS376,EMS252.EMS372,EMS350 
EMS65,EMS401 
104425 EMS511,EMS502,EMS503,EMS501,0 


101744 102066 EMT237: . EMS 300 .EMS66,EMS307,EMS2 
074677 





CZRMJCO RMO3/2_DSKLS PRT 1 
21-AUG-78 09:19 


CZRMJC.P11 


15783 
15784 
15785 
15786 
lores 


5 
15789 
15790 
15791 
15792 
15793 
13794 


CER PRE RY 


St 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
‘ 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
15 
1 
1 
15 
1 
1 
1 
1 
1 
15 


073344 
073352 
073354 
073362 
073370 
073376 


073512 
073520 
073522 
073530 
073536 
073542 
073546 


104750 
000000 


075557 


077055 
101052 


104750 
077055 


104331 


102717 
104136 


104425 
105201 
103774 
104425 
102674 


102717 
104107 


104425 
104022 
104425 
103611 
104425 
105201 


102674 
102632 
104425 
102717 
104136 
104425 
105226 


1026.4 


102717 
104107 


104425 
104022 


MACY11 . 


102752 
104126 


000000 
104037 


000000 
102752 
104126 


104126 
000000 


102752 
104126 


000000 
104037 


000000 


102752 
104126 


000000 
104126 


EMT240: 


EMT241: 


EMT 242: 


EMT 243: 


EMT244: . 


EMT245: . 


EMT 246: 


EMT 247: 


EMT250: 


EMT251: 


EMT252: 


EMT253: 


9 
A(1052) 21-AUG-78 09:28 PAGE 315 
ONSOLE MESSAGES 


- WORD 


EMS511,€MS501,EMS503,0 


EMS15 ,EMS400,EMS372,EMS350,EMS66,EMS401 
EMS511,EMS503,EMS501,0 


EMS66,EMS336,EMS340,EMS15,EMS406,EMS405 ,EMS604 


EMS511,EMS503,0 
EMS403,,EMS604 ,EMS402,EMS21,EMS377 


EMS511,EMS503 
EMS36,EMS335,0 


EMS66 ,EMS336,EMS340.,EMS26,EMS404 ,EMS405 ,EMS604 


EMS511,EMS503,0 
EMS63,EMS401 ,EMS405 ,EMS604 
EMS511,EMS503,0 
EMS36,.EMS370,EMS405 ,EMS604 
EMS511,EMS503,0 

EMS403,EMS604 ,EMS402,EMS24 ,EMS377 


EMS511,EMS503 
EMS36,EMS335,0 


EMS67 ,EMS332,.EMS405 ,EMS604 
EMS511,EMS503.0 
EMS66,EMS336,EMS340,EMS15,EMS406,EMS405 ,EMS605 


EMS511,EMS503,0 
EMS403,EMS605 ,EMS402,EMS21 ,EMS377 


EMS511,EMS503 
EMS36,EMS335.0 


EMS66,EMS336,EMS340 ,EMS26,.EMS404 .EMS405 .EMS605 


EMS511,EMS503,0 
EMS63,EMS401,EMS405 ,EMS605 


SEQ 0315 
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CZRMJC.P11 21-AUG-78 09:19 CONSOLE MESSAGES : 


105226 . 
104750 104425 ; EMS511,EMS503,0 


077055 103611 EMT254: . EMS36,EMS370,EMS405 ,EMS605 
073714 104425 . EMS511.EMS503,0 
073722 104046 105226 EMT255: EMS403,EMS605 ,EMS402,EMS24 ,.EMS377 
O93920 Orsoss 102674 : Ems36_EMe335- 0 
073746 191052 102632 104126 EMT256: . EMS67,EMS332,EMS405 ,EMS605 
073756 104750 104425 000000 ; EMS511,EMS503,0 


102717 102752 EMT257: EMS66,EMS336,EMS340,EMS15,.EMS406,EMS405 ,EMS606 
104136 104126 


104425 000000 . EMS511,EMS503,0 

Hy 4594 104037 EMT260: . EMS403 ,EMS606,EMS402,EMS21,EMS377 
104425 ° EMS511,EMS503 

102674 000000 EMS36,EMS335.0 


102717 102752 EMT261: EMS66 ,EMS336,EMS340.EMS26,EMS404 ,EMS405 ,EMS606 
104107 104126 


104425 000000 EMS511,©MS503,0 
104022 104126 EMT262: EMS63 ,EMS401,EMS405 ,EMS606 
074070 104425 000000 EMS511,EMS503,0 
074076 103611 104126 EMT263: . EMS36,EMS370,EMS405 ,EMS606 
104425 000000 EMS511,EMS503,0 
Hh ¢2 94 104037 EMT264: . EMS403 ,.EMS606,.EMS402 ,EMS24 ,EMS377 
EMS511,EMS503 


104750 
077055 


104750 104425 ° 
074132 077055 102674 000000 . EMS36,EMS335 0 


074140 101164 104022 104126 EMT265: . EMS70 ,EMS401 ,EMS405 ,EMS606 
074146 105244 
074150 104750 104425 000000 EMS511,EMS503,0 


074156 101052 102632 104126 EMT266: . EMS67 ,EMS332,EMS405 ,EMS606 
074164 105244 
074166 104750 104425 000000 . EMS511,EMS503,0 


074174 100775 103314 104151 EMT267: . EMS66,EMS356,E£MS407 
074202 104750 104425 000000 ’ —MS511,EMS503,0 


074210 100775 102717 102752 EMT270: . EMS66,—EMS336,EMS340,EMS15,EMS406,EMS405 ,EMS607 


STC 
SF 
StF 
Sw 
Sw 
Siw 
St 
Si 
Sta 
Si 
Sw 
Sw 
Sw 
Sel 
Si’ 
Siw’ 
Siw’ 
SW’ 
Sw! 


€é 


e£eLeeeee 
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CZRMJC.P11 21-AUG-78 09:19 CONSOLE MESSAGES C2R 
074216 075557 104136 104126 SAT’ 
074224 1052 $AT 
074226 104425 000000 EMS511,EMS503,0 sar 

105264 104037 EMT271: . EMS403,EMS607,EMS402,EMS21,EMS377 $BA 
103774 $80, 
104425 j EMS511,£MS503 $80) 
102717 000000 y EMS27,EMS336,0 SBE 
103611 104126 EMT272: . EMS27.EMS370,EMS405,,EMS607 scD 
074270 104425 000000 : —MS511,EMS503,0 SCH 
074276 103626 104126 EMT273: EMS27,EMS371,EMS405,EMS607 $CM 
074304 $CM 
9 074306 104425 000000 ; EMS511,£MS503,0 som 
Q 074314 104107 104126 EMT274: . EMS36,EMS404 ,EMS405 ,EMS607 SCN 
4 104425 000000 é EMS511,E£MS503,0 cP 
6 104022 104126 EMT275: . EMS53,EMS401,EMS405 ,EMS607 $08 
8 104425 104356 EMS511,EMS503,EMS502,0 $DD 
9 074350 $DD 
920 $DD 
074352 102632 104126 EMT276: EMS67,EMS332.EMS405,EMS607 $DD 
074360 $DD 
074362 104425 000000 ‘ EMS511,EMS503,0 $00 
074370 102717 102752 EMT277: EMS66.EMS336,EMS340,EMS26,EMS404,EMS405 ,EMS607 SOE 
$D0 
000000 . —MS511,£MS503,0 $07 
104037 EMT300: . EMS403,EMS607,EMS402,EMS24 ,EMS377 ‘ 

“ EMS511,EMS503 ¢ 
074432 102717 000000 EMS27,EMS336,0 = 
O74440 104022 1046126 EMT301: . EMS70,EMS401.EMS405,,EMS607 a 
074450 104425 000000 4 EMS511,£MS503,0 RU 
074456 : , J co 

: EH2.0 

po 


074532 EHT145: . 
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CZRMJC.P11 21-AUG-78 09:19 CONSOLE MESSAGES 


EHT150: EH150,0 
EHT213: EH213,0 
074546 FHT220: . EH220,0 


074552 


@NONEXISTENT DEVICE ‘NED'’ (RMCS2,BIT 12) @ 
@CONTROLLER CLEAR ‘CLR’ (RMCS2,BIT ~.* 

@FUNCTION CODE (RMCS1, BITS 01 - 05) 

@UNUSED BIT POSITIONS OF @ 

@DEVICE AVAILABLE ‘DVA"’ (RMCS1, BIT 11) @ 
@PARTIY ERROR ‘PAR'’ (RMERT, BIT 03) a 

@DATA PARITY ERROR ‘DPE’ (RMER2, BIT 03) @ 

@PARITY TEST 'PAT' (RMCS2, BIT 04) @ 

@MASSBUS CONTROL BUS PARITY ERROR “MCPE" a 
a(RMCS1, BIT 13) @ 

@ILLEGAL REGISTER ERROR “‘ILR'’ (RMER1, BIT 01) a 
@DIAGNOSTIC MODE *DMD'* (RMMR1, BIT 00) a 
@MEDIUM ON LINE ‘MOL*' (RMDS, BIT 12) a 
@MAINTENANCE UNIT READY MUR (RMR, “BIT 09) a 
@MAINTENANCE WRITE PROTECT *MuP*’ (RMAR1, BIT 03) @ 
@WRITE LOCK ‘WRL*’ (RMDS, BIT 11) @ 

@DEVICE CHECK ‘DVC"’ (RMERD, BIT 07) a 

Aer aint ah FAULT ‘MDF'' (RMMR1, BIT 06) @ 


@UNSAFE STA "UNS'" (RMER1, BIT 14) a 
@SEEK INCOMPLETE STATUS "Ski'* wh asa a Lhe a 


NADaR=Sask 


=" — Nn — 
RASANKAR 


B 
@DIAGNOSTIC END OF BLOCK 
: @LAST SECTOR STATUS ' (REP B 
052123 051440 : @LAST SECTOR/TRACK STATUS LST’ (RMMRT, BIT 01) a 





CZRMJCO RMO3/2_ DSKLS PRT 1 
CZRMJC.P11 21-AUG-78 


076716 042523 
0767 124 


55 
077013 126 
077055 107 
077105 103 
077145 114 
077223 103 
077271 103 


09:19 
052103 
22 


7 
046517 


9 
MACY11 30A(1052) 21-AUG-78 09:23 PAGE 319 
CunNSOLE MESSAGES 


051117 IZ @SECTOR ADDRESS, BITS 00-04 OF A 

045503 EMS -ASCIZ @TRACK ADDRESS, BITS 08-10 OF @ 

046525 EMS35: -ASCIZ @VOLUME VALID “Vv'' (RMDS, BIT 06) @ 

044502 EMS36: .ASCIZ @GO BIT (RMCS1, BIT 00) @ 

047111 EMS37: .ASCIZ @CYLINDER ADDRESS, BIT 00-09 0 

020124 EMS40: .ASCIZ @LAST BLOCK TAKEN STATUS “tar CRMDS, BIT 10) a 
047520 EMS41: .ASCIZ @COMPOSITE ERROR ‘ERR’’ (RMDS, BIT 145 a 

040515 MS42: <ASCIZ @COMMAND SEQUENCER TEST BIT “TST*' (RMR, BIT 12) a 


SEQ 0319 
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Meek, 104 4522 : @DRIVE READY STATUS 'DRY'' (RMDS, BIT 07) @ 
: SC @CONTINUE *‘CONT’* (RMMR1, BIT 06) a 
@INVALID COMMAND ERROR “‘IVC"" (RMER2, 12) a 
@LOSS OF SYSTEM CLOCK ERROR ‘LSC"' CRAMER? BIT 11) a 
@OCCUPIED ‘UCC’* (RMMR T 15) @ 


@ILLEGAL FUNCTION ‘‘ILF” ER’. BIT 0) a 
@OFFSET DIRECTION 2 a (RMOF, BIT 07) @ 


60) @ 


@RUN AND BIT 14) 3 

@INVALID ADDRESS E AE ee 10) a 
@ADDRESS OVERFLOW ERROR “AOE - BIT 09) a 
@REGISTER MODIFICATION ——— ERROR’ a 

a’ RAR’ (RMER1, BIT 02) 


@DRIVE REQUEST REQUIRED. STATUS ‘DRQ*" (RMDT, BIT 11) @ 
AT * (RMDS, BIT 09) a 


@PROGRAMMABLE STATU 

@DRIVE PRESENT STATUS 'DPR’’ (RMDS, BIT 08) 

@PORT REQUEST FLOP ‘'RQA,ROB'’ (RMMR2, BITS 13, 14) a 
@ATTENTION ‘ATA’ (RMDS, BIT 15) @ 

@WRITE LOCK ERROR ‘WLE’* (RMER1 BIT 11) @ 

@EXCEPT ION ‘Ree (RMMRI, BIT 12) 

@INVALID COMMAND ERROR “‘IVC'' CRrER2, BIT 12) a 

@TAG BUS (RMMR2, BITS $ 00-09) OR TAG CONTROL @ 
@LINES (RMMR2, BITS 10,11,13) @ 

@SEARCH ENABLE ‘ESRC’ (RMMR1, BIT 11) @ 


@DISK ADDRESS REGISTER (RMDA) a 

@CONTRe’. STATUS yg td #) (RICS1) a 

@ERROR REGISTER #1 eae R1) @ 

@ERROR REGISTER #2 (RMER2) @ 

@MAINTENANCE REGISTER Ra (RMAR1) @ 

@DESIRED CYLINDER REGISTER (RMDC) @ 

@OFFSET REGISTER (RMOF) @ 

@DRIVE TYPE REGISTER (RMDT) @ 

@HOLDING REGISTER (RMHR) @ 

: @SERIAL NUMBER REGISTER (RMSN) @ 

101701 3 @ATTENTION SUMMARY REGISTER (RMAS) @ 


101744 MS300: @CANNOT CLEAR @ 
: .ASC @CANNOT WRITE/READ @ 
@ANY DEVICE REGISTER @ 
p= bane ed a 


4 
Ruo=n== 
NN NNN 


SRIF 


@A ONE FROM @ 

@USING MASSBUS INITIALIZE, 1.£.. @ 

@A ZERO FROM @ 

@EVERY DEVICE meeisres BIT Ay Nae r) 
NG BITS ARE STUCK 


Z : 
102675 EMS323: 
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102514 6 020114 253 : @ALL ZEROS FROM a 
055040 : aAT ZERO @ 
@AT ONE @ 
a, OR a@ 
<CR><LF>acs MRA CLRL @ 


@USING @ 
@DURING REGISTER TRANSFER @ 
@UNEXPECTED @ 
@BUS TIMEOUT (04 ) 
aBy REGISTER TRANSFER a 
@CANNOT RESET @ 
@WITHOUT SETTING @ 
@BUT @ 
Q@WAS RESET ' a 
@WAS SET BY 
@IN DIAGNOSTIC MODE @ 
@1S INCORRECT ACCORDING TO a 
@CANNOT INCREMENT @ 
@WAS NOT SET BY @ 
@WAS NOT RESET BY @ 
a0 TO 1 TRANSITION OF @ 
@1 TO 0 TRANSITION OF @ 
@1S INCONSISTENT @ 
T READ @ 


ac EAD 
@TEST PATTERN IN @ 
@AND a 
: @CANNOT INITIALIZE @ 
103541 1 042510 EMS367: @THE COMMAND SEQUENCER HAS BEEN CLOCKED @ 





CZRMJCO RMO3/2 DSKLS PRT 1 


CZRMJC.P11 21-AUG-78 
103611 122 
103626 044504 
103655 1 
03707 124 
103713 127 


103744 054502 
103760 054502 
103774 040527 
10400 
104022 044504 
104037 127 
047503 
104107 127 
104126 052504 
104136 040527 
106151 23 
104171 011 
104222 042011 
104265 011 
104331 0 
104356 046411 
104425 011 
104451 011 
104475 0 
104550 042011 
605 011 
104675 011 
104750 005015 
104777 0 
105047 122 
105077 117 
105117 1 
105160 042522 
105201 12 


105302 054105 
105332 052123 


105361 040 
105370 042101 
105377 105 
105417 122 
105436 054105 
105455 123 
105515 104 
105554 054105 
105602 052123 
105631 105 
05660 052123 
105707 105 
105746 052123 
106005 105 


09:19 
051505 
020104 
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@RESET EARLY @ 

@DID NOT RESET ON TIME @ 

= COMMAND EXECUTION @ 

@WITH ANY COMBINATION OF @ 
ING @ 


Zz 
Z 
Z 
Zz 
Zz 
Zz 
Zz 
Z 
Zz Ss 
Z a@DID NOT SET @ 
CIZ @wWHILE 
Z @COMMAND SEQUENCER DID NOT ABORT @ 
Z @WAS NOT RESET @ 
: @DURING @ 

r4 

I 

I 

Zz 

Zz 

Zz 

Zz 


042522 E -A @WAS RESET @ 

041522 EMS407: . @SEARCH TIMEOUT @ 

044526 EMSSO0: .ASC a DEVICE IS NONEXISTENT ,@<CR><LF> 

041511 -ASC a DEVICE IS SWITCHED TO OTHER PORT@<CR><LF> 

047101 -ASC a TRANSCEIVER ENABLE aby S IS OF Fa<CR><LF> 

046440 EMS5SO1: .A r) IF MODULE, M7686,a<CR><LF 

041123 EMS502: .ASCIZ @ MASSBUS TRANSCEIVER. m5922, OR M5923 a@<CR><LF > 
046440 EMS503: .ASCIZ @ CS MODULE .M7684 ,@<CR><L 

046440 EMS504: .ASCIZ @ DS MODULE .M7685, S<CR><LF> 

044526 EMSSO5: .ASCIZ @ DEVICE IS “SuITCHeD TO A/B PORT POSITION@<CR><LF> 
041511 EMSS -ASCIZ @ DEVICE IS NOT AN RMO3, OR@<CR><LF> 

044526 EMS507: .ASCIZ @ DEVICE IS SWITCHED TO PROGRAMMABLE PORT POSITION, OR@<CR><LF> 
052523 EMS510: .ASCIZ @ ASSUMING THE RH CONTROLLER HAS NO FAULT@<CR><LF> 
047522 EMS511: .ASCII <CR><LF>@ PROBABLE FAULT(S) :@<CR><LF> 

052117 ASCIZ @ (NOT INCLUDING CABLES OR CONNECTORS) @<CR><LF> 


020104 EMS600: .ASCIZ @READ IN PRESET COMMAND @ 
2523 : @OFFSET COMMAND @ 


04 EMS601: .ASCIZ 

051125 EMS602: .ASCIZ @RETURN TO ed al CENTER COMMAND @ 
051501 EMS603: .ASCIZ @RELEASE COMMAND @ 

046101 EMS604: .ASCIZ @RECALIBRATE COMMAND @ 

041440 EMS605: .ASCIZ EEK C a 

044103 EMS eASCIZ @SEARCH COMMAND 

041440 EMS607: .ASCIZ TA COMMAND @ 

042124 EH1: -ASCII @EXPCTD RECEVD REGSTR@<CR><LF> 
051525 eASCIZ @STATUS STATUS ADRESS@ 

042523 EH2: -ASCII @ BASE@<CR><LF > 

051523 EHS: -ASCIZ @ADRESS@ 

052103 EHS eASCII @EXPCTD STUCK@<CR><LF> 

046125 -ASCIZ @RESULT BIT(S)@ 

042124 EH7 -ASCIZ @EXPCTD RECEVDa 

051120 EHS7 -ASCII @SNGPRT RECEVD DRVTYPa<CR><LF> 
054524 -ASCIZ @DRVTYP DRVTYP DRVTYP REGADR@ 
042124 EH65 -ASCII] @EXPCTD RECEVD TEST@<CR><LF> 

051525 CIZ @STATUS STATUS REGSTR@ 

052103 EH71: .ASCII @EXPCTD RECEVD TEST@<CR><LF> 

051525 ASCIZ @STATUS STATUS PATTRN@ 

052103 €H115: .ASCII @EXPCTD RECEVD REGSTR _TESTa<CR><LF> 
051525 -ASCIZ @STATUS STATUS ADRESS PATTRNa@ 
052103 €H130: .ASCII @EXPCTD RECEVD REGSTR TEST OFFSET@<CR><LF> 
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106055 123 040524 052524 ASC 
106124 054105 041520 042124 EH132: .ASC 
106164 047503 047125 020124 ASC 
106223 105 050130 052103 EH145: .ASC 


@STATUS STATUS ADRESS PATTRN REGSTRA@ 
@EXPCTD ACTUAL REGSTR OFFSET@<CR><LF> 

@COUNT COUNT ADRESS REGSTR@ 

@EXPCTD ACTUAL REGSTR RMER1T RMER2@<CR><LF> 


IZ 
I] 
f 
106272 046503 042520 051122 -ASCIZ @CMPERR CMPERR ADRESS PATTRN PATTRN@ 
106341 105 050130 052103 EH150: .ASCII @EXPCTD ACTUAL REGSTR FUNCTION@<CR><LF> 
106402 042522 052523 052114 -ASCIZ @RESULT RESULT ADRESS CODE@ 
106440 054105 041520 042124 EH213: .ASCII @EXPCTD ACTUAL STATUS _TEST@<CR><LF> 
106477 122 051505 046125 ASCIZ @RESULT RESULT ADRESS REGSTR@ 
106536 041501 052524 046101 EH220: .ASCII @ACTUAL REGSTR@<CR><LF> 
106556 042522 052523 052114 LIST oo @RESULT ADRESS@ 
15980 106576 .EVEN 
15981 106576 001140 001142 001136 €ED1: -WORD $GDDAT,SBDDAT,$BDADR ,0 
15982 106604 000000 
15983 1 001136 000000 ED2: -WORD S$BDADR,0 
15984 106612 001140 001142 000000 ED5: -WORD $GDDAT,SBDDAT.0 
15985 106620 001174 001176 001142 £D57: WORD $TMPO,$TMP1,$8DDAT,$BDADR,0 
15986 106626 001136 000000 
15987 106632 001140 001142 001174 ED65: .WORD $GDDAT,S$BDDAT,STMPO,0 
15988 106640 000000 
15989 106642 001140 001142 001440 ED71: .WORD S$GDDAT,SBDDAT,RMHRO,0 
15990 106650 000000 
15991 106652 001140 001142 001136 £D115: .WORD $GDDAT,SB8DDAT,SBDADR,STMPO,0 
15992 106660 001174 000000 
15993 106664 001140 001142 001136 £D130: .WORD $GDDAT.SB8DDAT,S$BDADR,STMPO,$STMP1,0 
15994 106672 001174 001176 000000 
Hf 44-44 106700 001142 001136 ED220: .WORD $8DDAT,$BDADR 
15997 106704 000 000 000 EF1: -BYTE 0,0,0 
15998 106707 000 EF2: -BYTE 0 
15999 106710 000 000 EFS: -BYTE 0,0 
16000 106712 000 000 000 EF57: .BYTE 0,0,0,0 
16001 106715 000 


16002 106716 000 000 000 €EF130: .BYTE 0,0,0.0,0 
16003 106721 000 000 


16004 

16005 106724 EVEN 

16006 106724 BUFFER: 

16007 106724 000402 BUFONE: .BLKW 258. 

16008 107730 000402 BUFTWO: .BLKW 258. 

16009 106724 " = BUFFER 

16010 -NLIST BEX 
106724 HELP: 
106724 005015 -ASCII <CR><LF> 
106726 044514 052123 047440 .ASCII @LIST OF TESTS@<CR><LF> 
106745 055 026455 026455 .ASCII @------------- a<CR><LF> 
106764 ASCII <CR><LF> 


005015 ° 
106766 030524 052011 040522 .ASCII atl TRANSFER TEST@<CR><LF > 
II ate CTOD TEST@<CR><LF > 
II aT3 MASSBUS INITIALIZE TEST@<CR><LF> 
II a4 CLEAR STUCK ACTIVE TEST@<CR><LF> 
II] ats TRISTATE TRANSFER TEST@<CR><LF> 
i al6 REGISTER SELECT TEST@<CR><LF> 


1 466 ° 
107202 033524 042011 044522 .AS aq? DRIVE TYPE TEST@<CR><LF> 
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DEVICE AVAILABLE TEST@<CR><LF> 
HOLDING REGISTER TRANSFER TEST@<CR><LF> 
CONTROL STATUS #1 TRANSFER TEST@<CR><LF> 
ERROR REGISTER 1 TRANSFER TEST@<CR><LF> 
ERROR REGISTER 2 TRANSFER TEST@<CR><LF> 
CLEAR OFFSET STUCK ACTIVE TEST@<CR><LF> 
OFFSET REGISTER TRANSFER TEST@<CR><LF> 
SERIAL NUMBER TEST@<CR><LF> 
CONTROL BUS PARITY DETECTION TEST@<CR><LF> 
CONTROL BUS PARITY GENERATION TEST@<CR><LF> 
RMDA,RMDC FAULT TEST@<CR><LF> 
DISK ADDRESS TRANSFER TEST@<CR><LF> 
DESIRED CYLINDER TRANSFER TEST@<CR><LF> 
ILLEGAL REGISTER TEST@<CR><LF> 
RESET GO BY INIT TEST@<CR><LF> 
DIAGNOSTIC MODE TEST@<CR><LF> 
MOL TEST@<CR><LF> 
WRITE LOCK TEST@<CR><LF> 
DRIVE FAULT TEST@<CR><LF> 
SEEK ERROR TEST@<CR><LF> 
PIP TEST@<CR><LF> 
EBL TEST@<CR><LF> 
LAST SECTOR, LAST TRACK TESTa@<CR><LF> 
RMDA COUNT TEST@<CR><LF> 
RMDC COUNT TEST@<CR><LF> 
LBT TEST@<CR><LF> 
COMPOSITE ERROR TEST@<CR><LF> 
WRITE GO TEST@<CR><LF> 
BRANCH MULTIPLEXOR TEST@<CR><LF> 
SET/RESE? GO TEST@<CR><LF> 
END 1 RESET GO TEST@<CR><LF> 
SET PULSE TEST@<CR><LF> 
SET/RESET IVC TEST@<CR><LF> 
SET LSC TEST@<CR><LF> 
DECODE TEST@<CR><LF> 
SET/RESET VOLUME VALID TEST@<CR><LF> 
ILLEGAL FUNCTION TEST@<CR><LF> 
OCCUPIED TEST@<CR><LF> 
READ IN PRESET TEST@<CR><LF> 
RIP/RMOF TEST@<CR><LF> 
RMDA/RMDC/RIP TEST@<CR><LF> 
OFFSET COMMAND TEST@<CR><LF> 
RETURN TO CENTER TEST@<CR><LF> 
RMDC CLEAR OFFSET TEST@<CR><LF> 
eo. CLEAR OFFSET TEST@<CR><LF> 
UN AND GO TEST@<CR><LF> 
SET IAE TEST@<CR><LF> 
SEARCH, SEEK, READ WRITE TEST@<CR><LF> 
INVALID SECTOR/ TRACK TESTa@<CR><LF > 
INVALID CYLINDER TEST@<CR><LF> 
SET AOE TEST&@<CR><LF> 
SET RMR TEST@<CR><LF> , 
PGM STATUS CHECK@<CR><LF> 
124 PORT REQUEST TEST. PART 1a CR><LF 
e <CR><LF> 
033524 047520 SC PORT REQUEST TEST, PART 2a@<CR><LF> 


SSX 
S 


Oo 
sscc 


RHVASIANSS 


QS&ES 
wen 
nS 


2 Ss 4 2 2 2D 
Wren -SCOONN 
NAQWMNEWNO 


AABILS HAS 
NEMNMUN ANN 
VIN =] NUINWWOO—O 
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11 
11 
11 
11 
11 
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004460 PORT REQUEST TEST, PART 3@<CR><LF> 
RELEASC TEST@<CR><LF> 
WRITE ATA TEST@<CR><LF> 
RESET ATA BY GO TESTa<CR><LF> 
UNIT READY ATA TEST@<CR><LF> 
ERROR ATA _TEST@<CR><LF> 
REGISTER "“Seaeate 
><LF> 


Nm 


RECALIBRATE TEST@<CR><LF> 

SEEK TEST@<CR><LF> 

SEARCH TEST@<CR><LF> 

SEARCH TIMEOUT TEST@<CR><LF> 
DATA COMMAND TESTS (1)@<CR><LF> 
DATA COMMAND TESTS (2)a@<CR><LF> 
DATA COMMAND TESTS(3)a@<CR><LF> 


USE@<CR><LF > 
wn = - 9K CR><LF > 
HALT ON ERROR@<CR><LF> 
LOOP ON TEST@<CR><LF> 
INHIBIT ERROR TYPEOUTS@<CR><LF > 
INHIBIT ITERATIONS@<CR><LF > 


MMMM NN NN NNoNo nono nofponynrnrwrnrn 
NNN SESE . 


a 


LF> 
LOOP ON TEST IN SWR<7:0>@<CR><LF> 
™N128a<CR><LF > 
TN64a<CR><LF> 
TN32a@<CR><LF> 
™N16a@<CR><LF> 
TN8@<CR><LF > 
TN4@<CR><LF > 
TN2@<CR><LF> 
TN1@<CR><LF > 


O-NWEUANWOO-WSE 


§ 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


me ee ee ee et ed ed ed ed ed ed od od ow) 


#¥ 
zo 


a 
Z <CR><LF> 
EX 
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007526 
000040 


ViFSWN— 
¥ “wu 


sPepepereeceece 


$= 


74560 


C 002000 4 
ATNTBL 066142 Orates 
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EMS320 102415 EMS4 075013 EMS7 075160 EMT153 071646 EMT231 073154 
EMS321 102435 EMS40 = 077145 EMS70 = 10°. 164 EMT154 071666 EMT232 073170 
EMS322 102455 EMS400 104005 EMTVEC= 000030 EMT155 06 EMT235 073212 
EMS323 102475 EMS401 104022 MT1 EMT156 071724 EMT 234 34 
EMS324 102514 EMS402 104037 EMT10 0667 EMT157 071746 EMT235 073262 
EMS325 2534 EMS403 10404 EMT100 070402 EMT16 =. 067112 MT 236 30 
E 102545 EMS404 104107 EMT101 070422 EMT160 071764 EMT237 073334 
EMS327 102555 EMS405 104126 EMT102 070442 EMT161 072014 EMT24 067242 
EMS33_ 076716 EMS406 104136 EMT103 070462 EMT162 072032 EMT240 073354 
EMS330 102563 EMS407 104151 ,~ EMT104 070506 EMT163 072050 EMT 241 
EMS331 102602 EMS41 077223 EMT105 070526 EMT164 072072 EMT242 073424 
EMS332 102632 MS42 (077271 MT106 070546 EMT165 072114 EMT243 073450 
EMS333 102650 EMS43 077353 EMT107 070572 EMT166 072140 EMT 244 34 
EMS44 077424 EMT11 004 EMT167 072160 EMT245 073512 
EMS335 102674 EMS45 077465 EMT110 070612 EMT17 06 EMT246 30 
102717 EMS46 0 2 EMT111 070634 EMT170 072202 EMT247 073554 
EMS337 36 EMS47 = 077624 EMT112 070654 EMT171 072214 EMT25 067262 
EMS 076755 E 075044 EMT113 070674 EMT172 072230 EMT250 073572 
E 102752 EMS5O 077664 EMT114 070720 EMT173 072246 EMT251 073616 
EMS341 102 EMS5SOO 104171 EMT115 070742 EMT174 072270 EMT252 
EMS3%42 102772 EMS5SO1 104331 EMT116 070766 EMT175 072316 EMT253 07 
EMS343 103024 EMSSO2 104356 EMT117 071006 EMT176 34 EMT254 073704 
EMS344 103040 EMSSO3 104425 EMT12 067022 EMT177 072352 EMT255 073722 
EMS345 7 104451 EMT120 071026 EMT2 EMT256 073746 
103115 EMSSOS 104475 EMT121 071052 EMT20 067146 EMT257 073764 
EMS347 103133 MS506 104550 EMT122 071072 EMT200 072370 EMT26 067276 
35. 077013 EMS507 EMT123 071112 EMT201 072406 EMT260 074010 
EMS350 103154 EMSS1_ 077733 EMT124 071136 EMT202 072424 EMT 261 34 
EMS351 103161 EMS510 104675 EMT125 071154 EMT203 072442 EMT262 
EMS352 77 EMS511 104750 EMT126 071174 EMT 204 464 EMT263 074076 
EMS353 103213 EMSS2 2 EMT127 071212 EMT205 04 EMT264 074114 
EMS354 103237 EMSS3 100043 EMT13 067’ EMT206 072524 EMT265 074140 
EMS355 103272 EMS54 100104 EMT130 071236 EMT207 072554 EMT266 074156 
3 103314 EMSSS 100161 EMT131 071254 EMT21 66 EMT267 074174 
EMS357 103334 EMSS6 100237 EMT132 071272 EMT210 072570 EMT27 
EMSS7 100332 EMT133 071312 EMT211 EMT270 074210 
EMS360 103356 EMS6 075114 EMT134 071332 EMT212 072624 EMT271 074234 
EMS 361 E 00416 EMT135 071346 EMT 2135 36 EMT272 60 
EMS362 103432 E 04 EMT136 071364 EMT214 072666 EMT2735 074276 
EMS363 103453 EMS601 105077 EMT137 071376 EMT215 072700 EMT274 074314 
034 EMS602 105117 EMT14 067056 EMT216 072720 EMT275 32 
EMS365 103511 EMS603 105160 EMT140 071414 EMT217 072734 EMT276 074352 
103516 105201 EMT141 071434 EMT22 EMT277 074370 
EMS367 103541 EMS605 105226 EMT142 071450 EMT220 072750 EMT 
077105 E 105244 EMT143 66 EMT221 072766 EMT30 067342 
EMS370 103611 EMS607 64 EMT144 071502 EMT22 EMT300 074414 
EMS371 362) EMS61 EMT145 071524 EMT223 073022 EMT301 074440 
EMS372 103655 100543 EMT146 071546 EMT224 EMT31 
103707 EMS63 100624 EMT147 071564 EMT 225 EMT32 © 067372 
EMS374 103713 EMS64 = EMT15 0670 EMT226 073102 EMT335 067406 
EMS375 103744 EMS65 EMT150 071576 EMT227 073120 MT 047424 


100775 EMT2 7222 . 
EMS377 103774 EMS67 8101052 EMT152 071632 EMT230 073136 EMT36 }©=—6. 06.456 
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EMT37 067472 FO = 000002 IvC = 010000 PIRQVE= 000240 RMDAI 001334 
EMTS 56654 Fl = 000004 LBC )§3=— =: 002000 PLCLK 060432 RMDAO 3 001410 
EMT40 067506 F2 = 000010 BT = 002 PLFS = 002 RMDB = 2 
EMT41 067526 F3 = 000020 LCLOCK 060424 PLSTP 060542 RMDBI 001350 
EMT42 }3=— 067542 be = 000040 LC 0474 PROMPT 065163 RMDBO 001424 
EMT43 067566 = LF = 000012 PRO = = 
EMT44) §=—-(067 GTSWR = 104407 LS = 0 PRI = 0 RMDCI 001362 
EMT4S 067614 HCE = 000200 LSC = 004000 PR2 = 000100 RMDCO 001436 
EMT46 067630 HCI = 002000 LST = 2 PRS = 000140 RMDS = 2 
EMT47 067644 HCRC = 00 LSTOP 060536 PR4 = 000200 RMDS I 
EMTS 066676 HELP 106724 MCLK = 004 PRS = 000240 RMDSO 001414 
EMTSO § 067 HELPQS 065171 MCPE = 02 PR6 = 000300 RMDT = 26 
EMTS1 067710 T = 000011 F = 000100 PR7 = 340 RMDTI 001354 
EMTS2 0677 = 002000 MDPE = 00 PS = 177776 RMDTO 001430 
EMTS3 067744 IDXMSK= 000077 MI = 000004 PSEL_ = 002000 RMEC1 = 000044 
EMTS4 067760 E = 000100 moc = 000400 PSTOP 060530 RMEC1I 001372 
EMTSS 0 ILF_ _—_ = 000001 MOH = 020000 PSW == 177776 RMEC1IO 001446 
EMTS6 070020 ILFO2 = 000002 MOL = 010000 PWRVEC= 000024 RMEC2 = 000046 
EMTS7 070034 ILF24 = 000024 MRD = 002000 QSTMRK 065167 RMEC21 001374 
EMT6 066722 ILF26 = 000026 MS = 000040 RD = 000070 RMEC20 001450 
EMT60 070050 ILF30 = 000030 MSC = 000002 RDCHR = 104411 RMER1 = 000014 
EMT61 07 ILF32 = 000032 MSE =1 RDLIN = 104412 RMER1I 001342 
EMT62 070104 ILF34 = 000034 MSER = 000200 RDOCT = 104413 RMER10 001416 
EMT63 070124 ILF36 = 000036 MUR = 001000 RDY = 000200 RMER2 = 000042 
EMT64 §=07014 ILF40 = 000040 MWD = 000010 READY 006326 RMER2I 001370 
EMT65 070152 ILF42 = 000042 MWP == 000010 RECAL = 000006 RMER20 001444 
EMT66 860701 ILF44 = 000044 MXF = 001000 RESREG= 104415 RMHR = 000036 
EMi67 070202 ILF46 = 000046 NDTMSK= 115760 RESVEC= 000010 RMHRI 001364 
EMT7 066744 ILF54 = 000054 NED - = 010000 REX = 010000 RMHRO 001440 
EMT70 070220 ILF56 = 56 NEM = 004000 RG = 040000 RMLA = 000020 
EMT71 070240 ILF64 = = 00 RGDTPT 066152 RMLAI 001346 
EMT72 070264 ILF66 = NOTEX 066015 RH = 72 RMLAO }3 001422 
EMT73 070310 ILF74 = 000074 N = 1 RIP = 000020 RMMR1 = 
EMT74 070330 ILF76 = 000076 occ = 10 RLEASE= 12 RMMRII 001352 
EMT75 070340 LR = 000002 OFD = 000200 S = 16 RMMAR10 001426 
EMT76 =©070352 ILRGSO= 000050 OFFSET= 000014 RMASI 001344 RMMR2 = 
EMT77 070 ILRGS2= 000052 OM = 1 RMASO 001420 RMMR2I 001366 
ENRGDT ILRG54= 000054 ONES 2 RMBA_ = RMMR20 001442 
EQUALS 065161 ILRG5S6= 000056 E = 020 . RMBAE = 0000 = 

= ILRG60= OPI = 0200.0 RMBAEI 001376 RMOFI 001360 

060 ILRG62= 000062 OR = 000200 RMBAEO 001452 RMOFO 001434 

ERRTYP 057344 ILRG64= PACACK= 2 RMBAI 001332 = 
ERRVEC= = 000066 PAKACK= 00 RMBAO 3 001406 = 
ERTYOO 060110 ILRG70= 000070 PAR = 000010 RMCS1 = RMSNI 001356 
ERTYO1 060116 ILRG72= 000072 PAT = 000020 RMCS1I 00 1 
ERTYO2 060126 ILRG74= 000074 PCLOCK 06 RMCS10 001402 = 
ERTYOS 060135 ILRG76= 000076 PCOUNT 060474 RMCS2 = 10 RMWCI 001330 
ERTYO4 060143 IOTVEC= 000020 PDA = RMCS2I 001336 RMWCO 001404 
ESRC = 004000 IPCKO = 1 PGE = 002000 001412 RQA = 100000 
ER = 000020 IPCK1 = 00000? PGM = 001000 RMCS3 = 000052 RQB = 040000 
FMT16 = 010000 IPCK2 = 0000 PHA = 000200 RMCS3I 0014 RTC = 000016 
FNCDTB 066042 IPCK3 = 0000.- PIP = 020000 RMCS30 001454 R6 =%000006 
FNCMSK= 000077 IR = 000100 PIRQ = 177772 RMDA = 000006 R7 =%000007 


F 10 
CZRMJCO RMO3/2 DSKLS PRT 1 MACY11 30A(1052) 21-AUG-78 09:22 PAGE 330 SEQ 0329 
CZRMJC.P11 21-AUG-78 09:19 SYMBOL TABLE 


Sw9 = 001000 007136 040120 
0 30 


030342 SATYC 064736 
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057170 001122 064534 $TMP3 a4 202 
.504 0 $TMP4 1204 


061364 $SPOWE 
057324 SLLVEC 001520 001200 
113417 000 


ERRORS DETECTED: 0 
DSKZ:CZRMJC.BIN,DSKZ:CZRMJC.SEQ/NL :MC :MD:CND: TOC/LI :ME/DOC/SOL=DSKM: CZRMJC.P11 
RUN-TIME: 54 50 1 SECONDS 


RUN-TIME RATIO: 278/107=2.5 
CORE USED: 33K (65 PAGES) 


DOCUMENT PAGES: 330 





